Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Проверьте,есть ли ошибки? :) Программирование.
Program name
uses crt;
var a :integer;
begin clrscr;
readln (a);
if (a>=1703) or (a<1914) or (a>=1992) then writeln (Санкт Петербург);
if (a>=1915) or (a<1924) then writeln (Петроград);
if (a>=1925) or (a<=1991) then writeln (Ленинград);
readln;
end.

Ответ оставил Гость

Program name;
uses crt;
var a :integer;
begin clrscr;
readln (a);
if (a>=1703) and (a<1914) or (a>=1992) then writeln (Санкт Петербург);
if (a>=1915) and (a<1924) then writeln (Петроград);
if (a>=1925)and (a<=1991) then writeln (Ленинград);
if a<1703 then writeln(Error);
readkey;
end.