Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство aab=c*c - Pascal ABC

Формулировка задачи:

Задачка на вложенные циклы:Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c. с For я понял

Program lab4;
var a, b, c: integer;
begin
for a:=1 to 20 do
for b:=1 to 20 do
for c:=1 to 20 do
if a*a*b=c*c then writeln(a:4,b:4,c:4);
end.

с циклом while недопойму

Program lab41;
var a, b, c : integer;
begin
a:=1;
b:=1;
c:=1;
while a>20 do begin
a:=a+1;
while b>20 do begin
b:=b+1;
while c>20 do begin
c:=c+1;
end;
end;
end;
if a*a+b=c*c then writeln(a:5,b:5,c:5);
end.

как последнеее условие привязать чтоб он считал???

Решение задачи: «Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство aab=c*c»

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

Program lab41;
var a, b, c : integer;
begin
a:=1;
while a<=20 do begin
b:=1;
while b<=20 do begin
c:=1;
while c<=20 do begin
if a*a*b=c*c then writeln(a:5,b:5,c:5);
c:=c+1
end;
b:=b+1
end;
a:=a+1
end
end.

Объяснение кода листинга программы

В данном коде используется цикл while, который выполняется от 1 до 20 для переменных a, b и c. Внутри цикла проверяется равенство aab=c*c. Если это условие выполняется, то выводится значение переменных a, b и c на экран. После этого переменная c увеличивается на 1, а переменные a и b сдвигаются на одну позицию вперед. Затем цикл повторяется снова для новых значений a, b и c. После завершения всех итераций выводится итоговый результат.

Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c - Pascal ABC

Формулировка задачи:

Решение задачи: «Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c»

Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство aab=c*c - Pascal ABC

Решение задачи: «Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство aab=c*c»