Question

Помогите, пожалуйста

напишите программу которая на введенную дату из этих интервалов выводит название города.
1703-1914-Санкт-Петербург
1915-1924 - Петроград
1925-1991- Ленинград
С 1992 - Санкт-Петербург

Answer 1

var a,b,c,d:integer;
beginwriteln('введите год');
readln(a);
if (a>=1730) and (a<=1914) then writeln('Санкт-Петербург');
if (a>=1915) and (a<=1924) then writeln('Петроград');
if (a>=1925) and (a<=1991) then writeln('Ленинград');
if (a>=1992) then writeln('Санкт-Петербург');
end.