Написать ** Паскале программу для нахождения квадратного корня

Question

Написать на Паскале программу для нахождения квадратного корня

Answer 1

Var  x: real;
begin
  writeln('введите число: ');
  readln(x);
  writeln('корень ',x,' = ', sqrt(x));
  readln;
end.