Помогите, пожалуйста!
Мы с вами знаем, что Санкт-Петербург менял свое название несколько раз. Составить программу(Pascal ABC), которая на введенную дату выдает название города.
Если:
с 1703 – 1914 г. – Санкт Петербург, с 1914 – 1924 г. Петроград, с 1924 – 1991 г. Ленинград, с 1991г. – Санкт Петербург.
Заранее спасибо)

Var a:integer;
Begin 
  Write(Введите год: ); readln(a); 
if (a>=1703) and (a<1914) then writeln(Санкт Петербург); 
if (a>=1914) and (a<1924) then writeln(Петроград); 
if (a>=1924) and (a<1991) then writeln(Ленинград); 
if (a>=1991) then writeln(Санкт Петербург);

End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.