Листинг программы

program z21;

{Любую сумму больше 7 можно выплатить без сдачи

трешками и пятерками т.е.для n>7 найти все целые неотриц.

а и в ,что 3а+5в=n}

uses crt;

var n,a,b:longint;label met;

 begin

  met: clrscr;

   write('введите число n=');readln (n);

   if n<8 then begin

                write('n>7введите число n=');goto met;

               end;

   for a:=0 to trunc(n/2) do

   for b:=0 to trunc(n/2) do

   if a*3+b*5=n then writeln('a=',a,' b=',b);

 readln;

end.