Паскаль, информатика,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 pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

пщояк 17 27 16 33 17

нщёп 15 27 7 17