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

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.