256 мбайт * 1024 * 1024 * 8 = 2147483648 бит.
Исходя из предложенных вариантов, 215
Var a,b,c:integer;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
writeln(sqrt(a)+sqrt(b)+sqrt(c))
else
writeln('Одно из чисел отрицательное');
<span>end.</span>
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.
Первое слово: =Левсимб(н8,найти(" ";H8)-1)
Второе слово: =Правсимб(н8;найти(" ";H8)-1)