Function oszt (x: integer, y:integer):integer
begin
while x>=y do
x:=x-y;

return x;

end;