Var a, z :longint;
Begin
WriteLn('Введите любое число','a');
ReadLn(a);
z:=sqrt(a);
WriteLn('Корень квадратный из числа равен.',z);
end.