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

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

Спасибо ^-^

всегда пожалуйста ;D

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.