Составить программу на языке паскаль (найти сторону ромба если…

Это невозможно. Одной диагонали мало. Если, скажем, две диагонали, то уже можно решать. var a, b, ans: real; begin writeln ('Vvedite diagonali'); readln (a, b); ans: =sqrt (sqr (a / 2)+sqr (b / 2); writeln (ans); end.