Помогите плиз Написать программу для Турбо Паскаля по таблице

var x,y,q,r: integer; begin   x:=16;y:=2;   r:=16;q:=0;   while r>=x do begin     r:=r-y;     q:=q+1;   end;   writeln(q,' ',r); end.