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;
kod radi sledece:
prvi mod drugi = ostatak
prvi div drugi = resenje
People who think they know everything tend to irritate those of us who do.