program ggcj;
var
a: integer;
begin
Writeln('Введите число, из которого следует вычеслить корень');
Readln(a);
Writeln('ответ ', sqrt(a), ';');
end.
