решение странной задачи на Pascal

[саша аврамов]

Найти колличество сочетаний троек и пятерок, составляющих исходное число ( больше 7) и распечатать эти сочетания.

[BDA]

var
  n, b, k: integer;

begin
  readln(n);
  k := 0;
  writeln('"5"':7, '"3"':7);
  for b := 1 to n div 5 do
    if ((n - 5 * b) mod 3 = 0) and ((n - 5 * b) div 3 > 0) then
    begin
      writeln(b:7, (n - 5 * b) div 3:7);
      inc(k);
    end;
  writeln('Count: ', k);
  readln;
end.