program mid;
var a,b: real;
begin
readln(a,b);
if a<b then writeln('Меньшее число =', a) else writeln('Меньшее число =', b);
end.

program ball;
label vvv;
var i: integer;
begin
vvv: readln(i);
if (i<1) or (i>5) then goto vvv;
case i of
1: writeln('плохо');
2: writeln('неудовлетворительно');
3: writeln('удовлетворительно');
4: writeln('хорошо');
5: writeln('отлично');
end;
end.

program spisok;
var N,i: integer;
begin
readln(N);
for i:=10 to 99 do
if i/N=trunc(i/N) then writeln(i);
end.

program analiz;
var i,a,b,s: integer;
begin
readln(a,b);
s:=0;
for i:=b-1 to a+1 downto 
begin
writeln(i);
s:=s+1;
end;
writeln('сумма чисел равна ',s);
end.

program massiv;
var i, N: integer;
     a: array [1..1000] of integer;
begin
randomize;
readln(N);
for i:=1 to N do a[i]:=random*30+1;
i:=2;
while i<=N do
begin writeln(a[i]); i:=i+2; end;
i:=1;
while i<=N do
begin writeln(a[i]); i:=i+2; end;
end.

program summ;
var i,j,n,m: integer;
     a: array [1..1000, 1..1000] of integer;
    pol, otr: integer;
begin
randomize;
readln(n,m);
for i:=1 to n do for j:=1 to m do readln(a[i,j]);
pol:=0;
otr:=0;
for i:=1 to n do 
for j:=1 to m do 
if a[i,j]>=0 then pol:=pol+1 else otr:=otr+1;
if pol>otr then writeln('положительных чисел больше') else if pol<otr then writeln('отрицательных чисел больше') else writeln('положительных и отрицательных чисел поровну');
end.