Var a, b, c: integer; begin for c: =10 to 10000000 do begin a: =c; b: =0; while a> 0 do begin b: =b*10+a mod 10; a: =a div 10; end; if trunc(c*1.2) = b then writeln (c); end; end. сделать эту программу так, чтобы был только цикл while

Var a, b, c: integer;
begin
c:=10;
while c<=10000000 do
begin
a:=c;
b:=0;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
if trunc(c*1.2) = b then writeln (c);
c:=c+1
end;
end.