//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
<span>Одну и ту же информацию можно кодировать разными способами. Например, русский текст мы привыкли записывать с помощью русского алфавита. Этот же текст можно записать латинскими буквами или используя азбуку Морзе.</span>
Var
a: integer;
begin
readln(a);
while (a > 3) do
a := a - 4;
writeln(a);
end.
-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
a: integer;
begin
readln(a);
while (a > 0) do
a := a - 4;
writeln(a);
end.