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

 1703 г. read(god);while god <> 1703 do beginwrite ('Неправильно!');read(god);end;write('Правильно');pascal