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.