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)

0