var
a,answer:integer;
begin
randomize;
a:=random(101);
while (a<>answer) do
begin
readln (answer);
if (answer>a) then writeln ('Загаданное число меньше') else writeln ('Загаданное число больше');
end;
writeln ('Вы угадали число!');
end.
Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.
Var a,b: longint;
begin
read (a);
readln (b);
if a>b then
writeln (a)
else writeln (b);
<span>end.</span>