Написать программу вычисления суммы чисел 111, 106, 101, 96... 46 с помощью циклов.

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