S:=0;
a:=5;
for i:=1 to 10 do
begin
s:=s+i;
if s>20 then s:=s+a;
else a:=a+i;
s:=s+1;
end;
write (s)
write (i)
S=165 i=10..........................................
Оцени ответ