Составить программу ,которая запрашивает год начала великой отечественной войны и анализирует введенное число(верно или неверно)

Var A:integer;
Begin
WriteLn('Введите год начала Великой Отечественной войны:');
ReadLn(A);
if A = 1941 then WriteLn('Верно')
else WriteLn('Неверно')
End.