Доказать, что любую целочисленную денежную сумму,большую 7 руб., можно выплатить без сдачи трешками и пятерками.Для данного n > 7 найти такие целые неотрицательные a и b, что 3a +5b = n. 
Нужно написать на делфи

var
    a, b, n: integer;

begin
    read(n);
    if n<=7 then exit;
   
    for a := 1 to n do
        for b := 1 to n do
            if 3 * a + 5 * b = n then
                writeln('3 * ', a, ' + 5 * ', b, ' = ', n);
end.