До конца тебя не понял, что ты имел ввиду под x(квадрат), но если тебе нельзя чтобы x был отрицателен, а y может то:
program hello_world;
var x,y: real;
begin
write("Введи значение x , y - ");
read(x, y);
if x<0 then x:=-x;
x:= x+y;
writeln("Сумма чисел y и x = ", x)
end.
//Моя интуиция подсказывает мне, что это должно выглядеть так
var a,b:integer;
begin;
randomize;
a:=random(10);
readln(b);
if a=b then writeln('Угадала') else writeln('Не угадала, было загадано:',a);
<span>end.</span>
1) 20*1024*8 /100=1638,4 ≈1638 бит/с скорость первоначально
2) 1638+512=2150 бит/с повысили скорость
3) 20*1024*8/2150≈76,204≈76 с
Ответ: 76 с
62=2^6
Значит,любое загаданное число можно отгадать за 6 раз.