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.