2) напишите программу, вычисляющуюплощадь и периметр прямоугольника. если х=1,то s=a*b; если х=2, то p=2*(a+b); если х=3, то«выход».3) создать и напечатать одномерный массивслучайными числами от 0 до 15 и вывести наэкран те из них, которые больше 10.4) имеются данные об успеваемости 10учащихся. определите средний уровеньуспеваемости. решить с применениямассива.5) чему будут равны переменныеx: =0for i: =-2 to 0 don: =iti; x: =x+n; ​

0, 1, 2, 3, 4, 10, 11, 12, 13, 14, 20, 21, 22, 23, 24, 30, 31, 32, 33, 34, 40, 41, 42, 43, 44, 100, 101, 102, 103, 104, 110, 111, 112, 113, 114, 120, 121, 122, 123, 124, 130, 131, 132, 133, 134, 140, 141, 142, 143, 144, 200, 201, 202, 203, 204, 210, 211, 212, 213, 214, 220, 221, 222, 223, 224, 230, 231, 232, 233, 234, 240, 241, 242, 243, 244, 300, 301, 302, 303, 304, 310, 311, 312, 313, 314, 320, 321, 322, 323, 324, 330, 331, 332, 333, 334, 340, 341, 342, 343, 344, 400, 401, 402, 403, 404, 410, 411, 412, 413, 414, 420, 421, 422, 423, 424, 430, 431, 432, 433, 434, 440, 441, 442, 443, 444, 1000, 1001, 1002, 1003, 1004, 1010, 1011, 1012, 1013, 1014, 1020, 1021, 1022, 1023, 1024, 1030, 1031, 1032, 1033, 1034, 1040, 1041, 1042, 1043, 1044, 1100, 1101, 1102, 1103, 1104, 1110, 1111, 1112, 1113, 1114, 1120, 1121, 1122, 1123, 1124, 1130, 1131, 1132, 1133, 1134, 1140, 1141, 1142, 1143, 1144, 1200, 1201, 1202, 1203, 1204, 1210, 1211, 1212, 1213, 1214, 1220, 1221, 1222, 1223, 1224, 1230, 1231, 1232, 1233, 1234, 1240, 1241, 1242, 1243, 1244, 1300, 1301, 1302, 1303, 1304, 1310, 1311, 1312, 1313, 1314, 1320, 1321, 1322, 1323, 1324, 1330, 1331, 1332, 1333, 1334, 1340, 1341, 1342, 1343, 1344, 1400, 1401, 1402, 1403, 1404, 1410, 1411, 1412, 1413, 1414, 1420, 1421, 1422, 1423, 1424, 1430, 1431, 1432, 1433, 1434, 1440, 1441, 1442, 1443, 1444, 2000, 2001, 2002, 2003, 2004, 2010

Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.