1). Дана площадь S квадрата. Вычислить длину стороны a и длину диагонали d.

2). В прямоугольном треугольнике заданы два катета a и b. Найти гипотенузу С и площадь S.

1)

var a, s:integer;

begin

readln (s);

writeln ('Длина стороны = "' sqrt (s));

writeln ('Длина диагонали = ', sqrt (s) * sqrt (2));

end.

2)

begin

readln (a, b);

writeln ('Гипотенуза = ', sqrt ((a*a) + (b*b)));

writeln ('Площадь = ', (a*b) / 2);

end.