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

//PascalABC.NET 3.2 сборка 1318 Var   x1,x2,y1,y2:integer;   a:real; begin readln(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 2 2 3 Пример вывода: d=1.4142135623731 P=4 S=1

FREEPASCAL ver 1.0.12 program 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.