"Цикл с параметром"

[obayashka]

У первоклассника Пети m рублей. Мороженное стоит k рублей. Петя решил наестся досыта мороженного, для этого он покупал по одному мороженному и съедал до тех пор, пока ему хватало денег. Как Пете узнать, сколько денег останется у него, в конце концов? Учтите ,что Петя делить еще не умеет, а умеет только вычитать и складывать. Сколько мороженого он может съесть?

[Shift_sk]

и что сложного?

[Shift_sk]

var m,k,l:integer;
begin
l:=0;
read(m,k);
while m>=k do begin
m:=m-k;
l:=l+1;
end;
writeln(m,' ',l);
end.

m- сколько останетсья и l сколько штук мороженого сест!