Проверьте,есть ли ошибки? :) Программирование. Program name uses crt; var a :integer; begin clrscr; readln (a); if (a>=1703)

Program name // не хватает ; после слова nameuses crt; var a :integer; begin clrscr; readln (a); if (a>=1703) or (a<1914) or (a>=1992) // это условие должно быть записано так:((a>=1703) and (a<1914)) or (a>=1992)then writeln (\'Санкт Петербург\'); if (a>=1915) or (a<1924) then // вместо or надо использовать and, иначе слово Петроград будет выводится в любом случаеwriteln (\'Петроград\'); if (a>=1925) or (a<=1991) then // вместо or надо использовать and, иначе слово Ленинград будет выводится в любом случаеwriteln (\'Ленинград\'); readln; end.