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.