uses crt;var i,z:integer;beginclrscr;i:=0;while i<100 dobeginif i mod 11=0 then z:=z+i;i:=i+1;end;writeln('Summa= ',z);readln();end.