1. Напишите программу вычисления расстояния между двумя точками плоскости. 2. Напишите программу вычисления площади боковой поверхности куба. 3. Напишите программу вычисления площади и гипотенузы прямого треугольника, если известны его катеты. 4. Напишите программу вычисления суммы модулей трех трех вещественных чисел.

Program z1;

var x1, x2, y1, y2:integer;

begin

read (x1, x2, y1, y2) ;

writeln (sqrt (sqr (x2-x1) + sqr (y2-y1))) ;

end.

program z2;

var ch:integer;

begin

read (ch) ;

writeln (ch*ch) ;

end.

program z3;

var k1, k2:integer;

begin

read (k1, k2) ;

writeln (sqrt (sqr (k1) + sqr (k2))) ;

writeln ((k1*k2) / 2) ;

end.

program z4;

var ch1, ch2, ch3:integer;

begin

read (ch1, ch2, ch3) ;

writeln (abs (ch1) + abs (ch2) + abs (ch3))) ;

end.