Balatech asia уравень решить​

Var matrix1:array [,] of real; n:integer; tmp:real;
begin
  write('Введи размерность матрицы:');
  readln(n);
  matrix1:=new real[n,n];
  for var i:=0 to n-1 do  begin
    for var j:=0 to n-1 do
    begin
      matrix1[i,j]:=Random(100);
      write(matrix1[i,j]:4);
    end;
    writeln;
  end;
  writeln('Поменяли:');
  for var j:=0 to n-1 do
  begin
      tmp:=matrix1[j,n-1];
      matrix1[j,n-1]:=matrix1[n-1,j];
      matrix1[n-1,j]:=tmp;
  end;
  for var i:=0 to n-1 do begin
       for var j:=0 to n-1 do
            write(matrix1[i,j]:4);
       writeln;
  end;
 end.

#include "math.h"
#include <iostream>
using namespace std;
int main()
{
//объявление переменных
float xa, ya, xb, yb, ab ;
//ввод переменных 
cout<<"Vvedite xa: "<<endl;
cin>>xa;
cout<<"Vvedite ya: "<<endl;
cin>>ya;
cout<<"Vvedite xb: "<<endl;
cin>>xb;
cout<<"Vvedite yb: "<<endl;
cin>>yb;
//расчет длинны отрезка
ab=sqrt(pow(xa-xb,2)+pow(ya-yb,2);
//вывод длины отрезка
cout<<"|AB| = "<<ab<<endl;
system("pause");
return 0;
}