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

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;

write(n)
;

end.