Var i,k:integer;
begin
writeln('4л 8л');
for i:=0 to 9 do
begin
if (60 - 4*i) mod 8 = 0
then begin write(i,' ', (60 - 4*i) div 8);
if (i+(60 - 4*i) div 8) = 9
then writeln(' - Подходит!') else writeln;
end;
end;
end.
Результат:
4л 8л
1 7
3 6 - Подходит!
5 5
7 4
9 3