Как это решать, распишите по действиям

var s, n: integer;
begin
s: =0; n: =1;
while sqr(s+2)< 125 do
begin
n: =n*2;
s: =s+2;
end;
write(n)
end.

var s, n: integer;

Мы обозначаем переменные целого типа

var s, n: integer;

начало программы

s:=0; n:=1;

присваиваем переменным значения

while sqr(s+2)<125 do

Цикл, пока корень квадратный s+2 < 125 - выполнять цикл

begin

начало цикла

n:=n*2;

умножаем n на 2

s:=s+2;

прибавляем к s 2

end;

конец цикла

write(n);

вывести n

end.

конец программы

Объяснение:

У Вас ошибка в 9ой строчке, пропустили точку с запятой.

var s, n: integer;

begin

s:=0; n:=1;

while sqr(s+2)<125 do

begin

n:=n*2;

s:=s+2;

end;

end.