I:=0
n:=2
m:=1
While i<=2 do
begin
n:=n+2*m
i:=i+1
end
Whrite(n)​

Блок-схемы - во вложениях

1.

Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Введите стороны треугольника');
    write('Введите а');
    readln(a);
    write('Введите b');
    readln(b);
    write('Введите c');
    readln(c);
  p:=(a+b+C)/2;
  S := sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника равна ',s);
end.

2.

Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
    write('Введите длину основания ');
    readln(a);
    write('Введите ширину основания ');
    readln(b);
    write('Введите высоту параллелепипеда ');
    readln(h);
  s := 2*(a*b+b*h+h*a);
  v := a*b*h;
  r := 4*(a+b+h);
  writeln('Объём равен ',v);
  writeln('Площадь полной поверхности равна ',s);
  writeln('Сумма рёбер равна ',r);
end.

import random

matrix = []

subarray = []

dim_m = int(input("Input amount of rows"))

dim_n = int(input("Input amount of columns"))

rand_gen_top = int(input("Input random generation max value"))

rows_avg_list = []

cols_avg_list = []

rows_avg = 0

cols_avg = 0

for i in range(0, dim_n, 1):

   for j in range(0, dim_m, 1):

       subarray.append(random.randint(0, rand_gen_top))

       rows_avg += subarray[j]

   matrix.append(subarray)

   rows_avg_list.append(rows_avg / dim_m)

   subarray = []

   rows_avg = 0

for j in range(0, dim_m, 1):

   for i in range(0, dim_n, 1):

       cols_avg += matrix[i][j]

   cols_avg_list.append(cols_avg / dim_n)

   cols_avg = 0

print("\nMatrix dimension m =", dim_m)

print("\nMatrix dimension n =", dim_n)

print("\nRange of random generated numbers from 0 to:", rand_gen_top)

print("\nMatrix A:\n")

for i in range(0, dim_m, 1):

   print(matrix[i])

print("\nAverage in rows:", rows_avg_list)

print("\nAverage in columns:", cols_avg_list)