СОР 1 ЗА 4 четверть по Информатике 7 класс ​

//pascalabc.net 3.0 const  n = 5; begin   var a : = arrrandomreal(n);   var b : = arrrandomreal(n);   write('длины первого катета: ');   foreach var i in a do write(i : 5 : 2);   write(newline, 'длины второго катета: ');   foreach var i in b do write(i : 5 : 2);   var imax : = 0;   for var i : = 1 to n - 1 do     if a[imax] * b[imax] < a[i] * b[i] then       imax : = i;   writeln(newline, 'номер: ', imax + 1);   writeln('катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);   writeln('площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.

Program pr; uses crt; var n,i: integer; stepen, sum,a: real; begin     writeln('введите количество чисел n');     readln(n);     writeln('введите степень');     readln(stepen);     writeln();     sum: =0;       for i: =1 to n do     begin            write('введите ',i,' число: ');             readln(a);             sum: =sum+a;     end; writeln('sum = ',sum); writeln('sum^',stepen,' = ',power(sum, stepen)); readln; end.