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

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.