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

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.