Ответы и объяснения

2014-02-23T19:29:01+04:00
Count :=1; 
while coun<=N do 
begin 
mult:= mult * count; 
inc(count,0.1); 
end;