Ввести в паскаль программу в каком году началась 2 мировая война

program zz1;

var k:integer; // задаем переменную целого типа

begin

write( введите год начала 2-ой мировой войны ); // вводим число с клавиатуры

read(k);

if k = 1939  // проверяем, если введенное число совпадает с годом начала второй мировой войны, то

then writeln( ответ правильный ) // выводим один ответ

else writeln( ответ не верный ); // выводим иной ответ

end.