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

Question

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

Answer 1

 1703 г.

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

pascal