Всем ! мне нужна , а у нас программа pascal abc ! не игнорировать ! будь добрый человек ! нам 5

program n_1;

var i, k: integer;

begin

    i: =1;

    for k: =1 to 10 do begin

        writeln(i: 6, i*i: 6, i*i*i: 6);

        i: =i+k;

    end

end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(7,1,99);   var b: =arrrandom(7,1,99);   var c: =arrrandom(7,1,2);   var k: =0;   var r,x: integer;   for var i: =0 to 6 do begin       write(a[i]);       if c[i]=1 then begin write(' + '); r: =a[i]+b[i] end       else begin write(' - '); r: =a[i]-b[i] end;       write(b[i],' = '); read(x);       if x=r then k+=1       end; // for   writeln('верных ответов: ',k) end. пример 77 - 21 = 56 53 - 97 = -44 91 + 51 = 142 42 - 65 = -23 70 + 78 = 148 91 - 5 = 86 45 + 41 = 86 верных ответов: 7

//pascal abc.net v3.1 сборка 1172 const   n=5; var   ar: array[1..n] of integer;   i,c: integer; begin   randomize;   writeln('first array: ');     for i: =1 to n do     begin       ar[i]: =random(10);       write(ar[i]: 4);     end;   writeln;   c: =ar[n];   for i: =n downto 2 do   ar[i]: =ar[i-1];   ar[1]: =c;   writeln('final array: ');   for i: =1 to n do   write(ar[i]: 4); end. пример работы программы: first array:     9   3   4   3   0 final array:     0   9   3   4   3