Задача №6

var x,y,max:integer; 
begin 
read(x); 
max:=x; 
if x=0 then exit; 
repeat 
read(y); 
if y>max then max:=y; 
until y=0; 
writeln(max); 
end.

Задача №7

var x,y,max, min:integer; 
begin 
read(x); 
max:=x; 
min:=x; 
if x=0 then exit; 
repeat 
read(y); 
if y>max then max:=y; 
if yuntil y=0; 
writeln(max-min); 
end.

Задача №8

var x,k,z:integer; 
begin 
k:=0; 
z:=0; 
repeat 
read(x); 
if (x mod 2 = 0) and (x0) then k:=k+1; 
if (x mod 2 = 0) and (x0) then z:=z+1; 
until x=0; 
if k>z then writeln('Четных больше'); 
if kif k=z then writeln('Четных и нечетных поровну'); 
end.

Задача №9

var x,y,max,k1,k2:integer; 
begin 
read(x); 
max:=x; 
k1:=1; 
k2:=0; 
if x=0 then exit; 
repeat 
read(y); 
if y>max then k1:=k1+1; 
k2:=k2+1; 
until y=0; 
if k1=k2 then writeln('Верно') else writeln('Неверно'); 
end.

Задача №10

var y,k1,k2:integer; 
begin 
k1:=1; 
k2:=0; 
repeat 
read(y); 
if (y>0) and (y>20) and (y<100) then k1:=k1+1; 
k2:=k2+1; 
until y=0; 
if k1=k2 then writeln('Верно') else writeln('Неверно'); 
end.