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