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

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.