,составьте программу по фото алгоритма

могу только на паскале

program Counter(output, input);

var x, y, r q: integer;

begin

read(x);

read(y);

r := x;

q:= 0;

while r >= y do

begin

r:= r - y;

q:= q + 1

end;

writeln(r, q);

end.