var a, x: extended;
begin
readln (a);
x:= sqrt (a);
writeln (x);
end.

Выдаёт неправильный ответ.

Firstly you should read task carefully.

How many numbers are in input? How many numbers your program process?