Переведем левую часть в килобайты:
8^х бит - это 1^х байт; либо же 1024^х кбайт.
1024^х кб=32 кб
х=1/2.
Var
x, y: real;
begin
readln(x);
x:=x-4;
if (x<0) then writeln('Error')
else writeln(sqrt(x):0:5);
readln
end.
Примечания:
(sqrt(x):0:5); - 5 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:int64;
Read(a);
(a = 2 ? -1 : (a * a + 1) div 2).Println
end.
<h3>Пример</h3><h3>13</h3><h3>85 </h3>
1<span>035 в 6 вот кароче как-то так. В десятичную сначала потом складываешь, потом делением на 6.</span>
То что они расположены по году выпуска, от старых к новым (Windows 10 новая последняя)