Мы с вами знаем, что санкт-петербург менял свое название несколько раз. составить программу(pascal abc), которая на введенную дату выдает название города. если: с 1703 – 1914 г. – санкт петербург, с 1914 – 1924 г. петроград, с 1924 – 1991 г. ленинград, с 1991г. – санкт петербург. заранее )

Var a:integer;
Begin 
  Write('Введите год: '); readln(a); 
if (a>=1703) and (a<1914) then writeln('Санкт Петербург'); 
if (a>=1914) and (a<1924) then writeln('Петроград'); 
if (a>=1924) and (a<1991) then writeln('Ленинград'); 
if (a>=1991) then writeln('Санкт Петербург');

End.