На Паскале

var a,b:real;

i:integer;

begin

 a:=-999999999999999999;

 for i:=1 to 10 do

   begin

   writeln('введите ' ,i,' е число');

   readln(b);

   if (b>a)then a:=b;

   end;

   writeln ('Наибольшее число  ',a);

end.