Нужно написать программку проверки познания даты основания Санкт-Петербурга.

Program data;

var

d,m,g:integer;

begin

writeln(Введите день, когда был основан Санкт-Петербург. Введите число, если цифра меньше 10, введите её без доп. нулей);

readln(d);

writeln(Введите месяц. Введите число, если цифра меньше 10, введите её без доп. нулей);

readln(m);

writeln(Введите год. Введите число, если цифра меньше 10, введите её без доп. нулей);

readln(g);

if (d=27) and (m=5) and (g=1703) then writeln(Верно)

else writeln(Неверно, верный ответ: 27 5 1703);

end.