Определите значение переменной S после выполнения операторов:
а:=1; b:=1; S:=0;
while a<=5
do
begin
a:=a+b; b:=b+a;
S:=S+a+b;
end;

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку