Суммативное оценивание за раздел «Программирование на языке сделать ​

//Pascal ABC.NET 3.1 сборка 1219

procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
 pp:real;
begin
  p:=a+b+c;
  pp:=p/2;
  s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;

Var
 a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.

Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221

//Pascal ABC.NET 3.1 сборка 1219

Const
  n=7;
 m=4;

 Var
 ma:array[1..n,1..m] of integer;
 i,j:integer;
begin
randomize;
writeln('Matrix:');
 for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    ma[i,j]:=random(50);
    write(ma[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m-1 do
 for j:=i+1 to m do
  begin
   if ma[n,i]<ma[n,j] then swap(ma[n,i],ma[n,j]);
   if ma[n-1,i]<ma[n-1,j] then swap(ma[n-1,i],ma[n-1,j]);
  end;
writeln('Final matrix:');
for i:=1 to n do
begin
 for j:=1 to m do
  write(ma[i,j]:4);
 writeln;
end;
end.