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

Zvezba1111111    2   02.05.2020 15:39    4