Написать программу, которая выводит на экран вопрос:"В каком году появились первые ЭВМ?" и ждёт ответа. В зависимости от ответа, программа сообщает:"Вы правы!" или "Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!"

Var year: integer;

begin

//запрос необходимых характеристик

Writeln ('В каком году появились первые ЭВМ?');

Readln (year);

//проверка правильности введённого ответа

if year=1946 then

Writeln ('Вы правы!')

else

Writeln ('Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!');

end.