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

Var year: integer;begin//запрос необходимых характеристикWriteln(\'В каком году появились первые ЭВМ?\'); Readln(year);//проверка правильности введённого ответаif year=1946 thenWriteln(\'Вы правы!\')elseWriteln(\'Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!\');end.