Code:

procedure podeli(prvi,drugi:integer;var resenje,ostatak:integer);
var
temp:integer;
begin
resenje:=0;
temp:=prvi;
while (temp-drugi)>0 do
begin
temp:=temp-drugi
inc(resenje);
end;
ostatak:=temp;
end;