program maxchislo;
uses crt;
label D3;
var
i, chislo, max : integer;
begin
D3:writeln('введите число');
readln(max);
for i:=2 to 10 do begin
readln(chislo);
if chislo>max then max:=chislo
end;
writeln('max=', max);
goto D3;
end.