Проверьте,есть ли ошибки? :) Программирование.
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) 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.
Answers & Comments
Ниже предлагается исправленный вариант программы.
program name;
uses crt;
var a:integer;
begin
ClrScr;
Readln(a);
if a<1703 then Writeln('Город не существовал')
else
if (a>=1703) and (a<1914) or (a>=1991) then Writeln ('Санкт-Петербург')
else
if (a>=1914) and (a<1924) then Writeln ('Петроград')
else Writeln ('Ленинград');
ReadKey
end.