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.