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

var a, b, c, d:integer;

begin

writeln ('Напиши дату основания Санкт-Питербурга (день месяц и год) ');

writeln ('день');

read (a);

writeln ('месяц');

read (b);

writeln ('год');

read (c);

if (a=27) and (b=5) and (c=1703) then

writeln ('Молодец всё правильно')

else

writeln ('Ты где то допустил ошибку');

end.