vara,sum :integer;begina:=46;sum:=0;while a<= 111 dobeginsum:=sum+a;a:=a+5;writeln ('a=',a);end;writeln ('sum=',sum);end.