Помогите решить задачи на языке программирования ПАСКАЛЬ. Номера заданий:6,7,8,9,10

Задача №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 y0) then k:=k+1;  if (x mod 2 = 0) and (x<>0) then z:=z+1;  until x=0;  if k>z then writeln('Четных больше');  if kmax 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.