Диагонали квадрата в паскале

Question

Диагонали квадрата в паскале

Answer 1

Var a, d: real;
begin
write('Сторона квадрата: ');
read(a);
d:= sqrt(2*sqr(a));
writeln('Диагональ равна: ', d);
end.