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.
uses crt;
var i,z:integer;
begin
clrscr;
i:=0;
while i<100 do
begin
if i mod 11=0 then z:=z+i;
i:=i+1;
end;
writeln('Summa= ',z);
readln();
end.