ПО это Программное Обеспечение. Его установка запрашивается при установке игры, потому что то ПО что с ней устанавливается является оптимальным для нее (по мнению разработчиков).
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}