Program FindLargest(input,output);



Var

n,max:real;

i:integer;

flag:boolean;



Begin

Max=0;

flag:=true;

for i:= 1 to 10 do

begin

Write('Enter The Number :');

readln(n);

if flag then

begin

max:=n;

flag:=false

end

else

if n>max then max:=n

end;

Write('The large number = ',max)

End.

Program FindLargers(input,uotput);



Var

max,n:real;

j:integer;

Begin

max:=-maxint;



for j:= 1 to 100 do

begin

write('Enter the number :');

read(n);

if n>max then max:=n;

end;

Write('the large number=',max:9:3);

End.