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

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.