var i,i2,i3:integer;
begin
for i:=8 downto 1 do begin
i2:=i*i;
i3:=i2*i;
writeln(i:4, i2:4, i3:4);
end;
end.
Объяснение:
