Составить программу которая находит наибольшее значение отношения трехзначного числа к сумме его цифр.

var
imax,s,i:integer;
max:real;
begin
for i:=100 to 999 do
begin
s:=i mod 10+i div 100+(i div 10)mod 10;
if i/s>max then begin
max:=i/s;
imax:=i;
end;
end;
writeln('chislo=',imax,' max otnoshenie=',max:5:3);
readln;
end.