var a, b, c: real; begin write('Введите сторону катета: '); read(a); writeln('Стороны треугольника: ', a : 0 : 1, ', ', a * sqrt(3) : 0 : 1, ', ', 2 * a : 0 : 1); end.