[VALENTINA]

Писала такую программу , но цифры в ответе большие:

Код:

var i,S,U,R,nomer:integer;
begin
U:=strtoint(edit1.text);
min :=1;
while i:=20 do
begin 
if S>min then s:=min;
i:=i+1;
end;
R:=U/S;
s:=i;
Edit3.text:=inttostr(nomer);