Назначение представленного фрагмента программы:
Р:=1;
FOR K:=1 TO 100 DO
Р:=P*K;
WRITE (P);
Вычисление произведения первых ста натуральных чисел

Вычисление произведения четных натуральных чисел,меньших 100

Вычисление произведения ста чисел, введенных пользователем

Постфиксную запись удобно воспринимать как манипуляции со стеком — аналогом длинной трубки с отверстием внизу. в которую можно класть шары, при этом каждый следующий шар проталкивает дальше предыдущие.

Идём по записи
1) 5 — кладём в стек 5
2) 13 — кладём в стек 13
3) 7 — кладём в стек 7
4) - — вытаскиваем из стека два последних шара (13 и 7) и кладём обратно их разность 13 - 7 = 6
5) * — вытаскиваем из стека два последних шара (5 и 6) и кладём обратно их произведение (5 * 6 = 30). 30 и будет ответом.

Эта запись равносильна такой: 5 * (13 - 7)

Var a:array [1..7] of real;
i:integer;
begin
write ('Массив: ');
for i:=1 to 7 do
begin
a[i]:=random(201)-100;
write (a[i],' ');
end;
writeln;
write ('Массив * 2: ');
for i:=1 to 7 do
begin
a[i]:=a[i]*2;
write (a[i],' ');
end;
end.

это возможно что выше
а ниже значение 50 на 1 измени и все uses crt;var mas:array[1..20] of integer;i,b:integer;beginclrscr;randomize;for i:=1 to 20 do beginmas[i]:=random(51)+50;write(mas[i]:4);end;write('B=');readln(b);for i:=1 to 20 do beginmas[i]:=mas[i]+b;write(mas[i]:4);end;readkey;end.