Program P1;Uses Crt;Var a, b, c : Real;
BeginClrScr;Write('Введи 2 диагонали через пробел: ');Readln(a, b);c := sqrt(sqr(a / 2) + sqr(b / 2));Write('Сторона ромба = ', c : 0 : 5);
Readln;End.
Program P1;
Uses Crt;
Var a, b, c : Real;
Begin
ClrScr;
Write('Введи 2 диагонали через пробел: ');
Readln(a, b);
c := sqrt(sqr(a / 2) + sqr(b / 2));
Write('Сторона ромба = ', c : 0 : 5);
Readln;
End.