Любую сумму денег больше 7 рублей можно разменять либо по 3 р, либо по 5р, либо по 3 и 5 рублей. Разменять N рублей любым из способов — Pascal(Паскаль)

program Exchange;

var
  sum, t: Integer;

begin
  sum := 0;
  Write('Vvedite summu: ');
  ReadLn(sum);
  while (sum <= 7) do
  begin
    WriteLn('Neobhodimo vvesti summu bolishe 7');
    Write('Vvedite summu: ');
    ReadLn(sum);
  end;
  t := sum div 5;
  while (sum - t * 5) mod 3 <> 0 do
    dec(t);
  if (sum - t * 5) div 3 = 0 then
    WriteLn(sum, ' rubley mozhno razmenyati po ', t, ' PYaTI-rublevyh monet')
  else
    WriteLn(sum, ' rubley mozhno razmenyati po ', t, ' PYaTI-rublevyh monet i ',
      (sum - t * 5) div 3, ' TREH-rublevyh');
  ReadLn;

end.