вычислить сложения чисел от 1 до 50 используя различные варианты цикла

На каком языке программирования надо?Pascal?

Если да,то

var summ,i:integer;

begin

for i:=1 to 50 do

begin

 summ+=i;

end;

WriteLn(summ);

end.

Либо

var summ,i:integer;

begin

i:=1;

while i<=50 do

begin

 summ+=i;

 i+=1;

end;

WriteLn(summ);

end.