Заполни пропуски в программе. Вывод на экран кубов чисел от 13 до 4. var :integer; begin for n:= downto do writeln (n*n*n); readln; end.

var n: integer;  

begin  

for n:= 13 downto 4 do

 writeln(n*n*n);  

end.

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

на египетскую - иероглифы.