Составить алгоритм и написать решение задачи на Паскале: Две точки заданны своими координатами. Найти диагональ, периметр и площадь квадрата со стороной, образованной этими точками.

//PascalABC.NET 3.2 сборка 1318Var  x1,x2,y1,y2:integer;  a:real;beginreadln(x1,y1,x2,y2);a:=sqrt(sqr(x2-x1)+sqr(y2-y1));writeln('d=',a*sqrt(2));writeln('P=',a*4);writeln('S=',sqr(a));end.Пример ввода:2 22 3Пример вывода:d=1.4142135623731P=4S=1

FREEPASCAL ver 1.0.12program Znanija;var Ax, Ay, Bx, By : integer;    C, D, P : real; begin  Writeln('Введите через пробел координаты точки А и нажмите Enter'); Readln(Ax, Ay);   Writeln('Введите через пробел координаты точки В и нажмите Enter'); Readln(Bx, By);    C:=sqrt(sqr(Bx-Ax)+ sqr(By-Ay));     Writeln('Площадь квадрата', sqr(C):10:2);     P:=C*4;    Writeln('Периметр квадрата', P:10:2);   D:=sqrt(sqr(C)*2);  Writeln('Диагональ квадрата', D:10:2); Readln end.