Сформировать квадратную матрицу порядка n по заданному образцу 1 2 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 0 0 0 0 1 2 3 4 5 6 0 0 0 0 0 1 2 3 4 5 0 0 0 0 0 0 1 2 3 4 0 0 0 0 0 0 0 1 2 3 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 1

Var   i: integer;     begin for i: =1 to 9 do  write(i);     writeln(10); for i: =0 to 8 do  write(i);     writeln(9); for i: =1 to 2 do  write('0');     for i: =1 to 7 do  write(i);     writeln('8'); for i: =1 to 3 do  write('0');     for i: =1 to 6 do  write(i);     writeln('7'); for i: =1 to 4 do  write('0');     for i: =1 to 5 do  write(i);     writeln('6'); for i: =1 to 5 do  write('0');     for i: =1 to 4 do  write(i);     writeln(5); for i: =1 to 6 do  write('0');     for i: =1 to 3 do    write(i);     writeln('4'); for i: =1 to 7 do  write('0');     for i: =1 to 2 do  write(i);     writeln(3); for i: =1 to 8 do  write('0');     write('1'); writeln('2'); for i: =1 to 9 do  write('0');     writeln(1);     end. как сделать более кратко не знаю. но эта программа работает.

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.