Ответ:

Объяснение:

7)

program Zadacha7;

var  x,  max: integer;

begin

readln (x);

max:=x;

while (x <> 0) do begin

readln (x);

if (max<x)

then max := x;

end;

writeln (max);

end.

8)

program Zadacha8;

var  x,  min: integer;

begin

readln (x);

min:=x;

while (x <> 0) do begin

readln (x);

if (min>x)

then min := x;

end;

writeln (min);

end.

9)

Сейчас напишу и дополню