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

пасибо

1)var a,s:integer;beginreadln(s);writeln('Длина стороны = "' sqrt(s));writeln('Длина диагонали = ', sqrt(s)*sqrt(2));end.2)beginreadln(a,b);writeln('Гипотенуза = ', sqrt((a*a)+(b*b)));writeln('Площадь = ', (a*b)/2);end.