Паскаль, информатика,8 класс​

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.

Объяснение:

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

режим разметки страницы,режим структуры,режим чтения.режим веб документа-