Составить программу по блок схеме

program Prog; // Pascal [fpc 3.0.4]

var

  x, y, r, q: real;

begin

   readln(x, y);

   r := x;

   q := 0;

   while (r >= y) do

       begin

       r := r-y;

       q := q+1;

       end;

    Writeln('r=', r, '; q=', q);

end.

Объяснение:

на Паскале  будет так