Опишите словами, что делает ниже приведенная программа. Что выдаст программа в качестве ответа, если ввести х = 23, y = 5:
program zadanie;
var x, y, r q: integer;
begin
write ('Введите два числа>>');
readln (x, y);
r:=x; q:=0;
repeat
r:=r – y; q:=q+1;
until r>=y;
writeln ('r= ', r, 'q= ', q);
end.