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

var
a,sum :integer;
begin
a:=46;
sum:=0;
while alt;= 111 do
begin
sum:=sum+a;
a:=a+5;
writeln (a=,a);
end;
writeln (sum=,sum);
end.