Program Primer;
var
i: Integer;
b:Boolean;
begin
Write('Введите число: ');
ReadLn(i);
if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))
then b:=true;
WriteLn(b);
end.
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
<u><em>1110010</em></u><em> - 2⁰*0+2¹*1+2²*0+2³*0+2⁴*0+2⁵*1+2⁶*1=114</em>
Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.