var q, r, x, y;
begin
    x := 32; y := 5;
    q := 0; r := x;
    while r >= y do begin
        q := q + 1; 
        r := r - y
    end
end.