Дана пачка денег больше 7 рублей.выдать деньги по 3 и 5 рублей. на паскаль

Var a: integer;
begin
     readln(a);
     while (a >= 3) do
     begin
           if (a >= 4) then
           begin
                writeln(a, ' - 4 = ', a - 4);
                a := a - 4;
           end;
           if (a >= 3) then
           begin
                writeln(a, ' - 3 = ', a - 3);
                a := a - 3;
           end;
     end;
end.

Так?