B:=3;
A:=1;
B:= B+A;
A:=A+2;
if A<=2 then
C:=A+2*B
else
C:=A-B;
writeln ('C=', C) var
arr: array of integer;
sum, i: integer;

begin
sum := 0;
SetLength(arr, 10); // размер массива

// Заполнение массива произвольными числами
for i := 0 to High(arr) do
begin
arr[i] := Random(20) - 10; // случайные числа от -10 до 10
end;

// Подсчет суммы отрицательных четных элементов
for i := 0 to High(arr) do
begin
if (arr[i] < 0) and (arr[i] mod 2 = 0) then
begin
sum := sum + arr[i];
end;
end;

writeln('Сумма отрицательных четных элементов: ', sum);
end.

3.

var
x, y: integer;

begin
write('Введите x: ');
readln(x);

if x >= 5 then
y := x*x - 3
else if x >= 0 then
y := x - 6
else
y := Abs(8 - x);

writeln('y = ', y);
end.