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.