Напишите программу которая на введенную дату из этих интервалов выводит название города. 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.