Помогите, пожалуйста!Мы с вами знаем, что Санкт-Петербург менял свое название несколько раз. Составить программу(Pascal ABC), которая на введенную дату выдает название города. Если:
с 1703 – 1914 г. – Санкт Петербург, с 1914 – 1924 г. Петроград, с 1924 – 1991 г. Ленинград, с 1991г. – Санкт Петербург.
Заранее спасибо)
- Var a:integer;Begin Write(‘Введите год: ‘); readln(a); if (a>=1703) and (a=1914) and (a=1924) and (a=1991) then writeln(‘Санкт Петербург‘);
End.