Дана пачка денег больше 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. Так?