1.Напишите программку вычисления расстояния меж 2-мя точками плоскости. 2. Напишите программку

1.program zz1;
var x1,x2,y1,y2,rast :real; // задаем переменные не целого типа
begin
read(x1,y1,x2,y2);
rast:=sqrt(sqr(x1-x2)+sqr(y1-y2));
write( расстояние меж точками = , rast); //выводим ответ
end.
2.program zz1;
var a, s:integer; // задаем переменные целого типа
begin
read(a);
s:=sqr(a);
write( площадь боковой поверхности куба = , s); //выводим ответ
end.
3.program zz1;
var a, s, b, c:real; // задаем переменные не целого типа
begin
read(a, b);
c:=sqrt(sqr(a)+sqr(b));
s:=a * b/2;
writeln( площадь прямоугольного треугольника = , s); //выводим ответ
writeln( гипотенуза = , c);
end.
4.program zz1;
var a, s, b, c:real; // задаем переменные не целого типа
begin
read(a, b, c);
s:=абс(a) + abs(b) + абс(c);
writeln( сумма модулей 3-х чисел = , s); //выводим ответ
end.