помогите решить задачу по информатике в программе PascalABC

Question

2.8. Для заданого натурального (7 < n <= 999) найти такие целые неотрицательные A и B, что 3A+5B = n .

Екатерина Полякова · Accepted Answer

И что мы тут имеем? А то, что b=(n-3a)/5. Чем нагло воспользуемся: 
 
for a:=1 to n div 3 do 
if (n-3*a) mod 5 = 0 then 
writeln(a, (n-3*a) div 5); 
 
Вот неужели эти 3 строчки ты не мог сам написать?

Алевтина · Answer

тебе мало моего ответа полчаса назад?

Наталья Богомолова · Answer

VAR 
A,B,n: integer; 
BEGIN 
readln(n); 
for A := 1 to n div 3 do 
for B := 1 to n div 5 do 
if 3*A+5*B = n then writeln(A, ' ', B); 
END.