Написать программу на pascal для вычисления площади треугольника по его координатам (стороны вычисляются как l1=) площадь по формуле герона. (сделайте screen если можно).

Мне лень на паскале + он туповат, вот код на с++ (современный язык на ряду с java)#include < bits/stdc++.h> #include < conio.h> typedef long long    lol; typedef unsigned long long ull; typedef int                it; typedef bool              bl; typedef long double ld; typedef char              cr; #define mp                  make_pair#define inf                int_max#define linf              long_long_max#define fr(i,n)        for(i=0; i< (n); i++)#define frr(i,n)      for(i=0; i< =(n); i++)#define wl(i,n)        while(i< n)#define prllprll      pair < pair< long long,long long> ,pair< long long,long long> > #define prll              pair< long long,long long> #define pri                pair< int, int> #define f                    first#define s                    second#define sqr(a)          ((a)*(a))#define pb                  push_back#define vll                vector< long long> #define vit                vector< int> #define sg                  string#define qit                queue< int> #define qll                queue< long long> #define pqll              priority_queue< long long> #define pqit              priority_queue< int> #define y                    dsadaf#define y1                  lfkfgiusing namespace std; lol a,b; int main(){      cin > > a > > b;       if (a> =1 & & a< =3)              cout < < 600*b;       else      if (a> =4 & & a< =7)              cout < < 700*b;       else      if (a> =8 & & a< =14)              cout < < 500*b;       else       return 0; }