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

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