Question

1)Скласти програму знаходження суми цілих додатніх чисел менших 15 мовою програмування дуже потрібно(((

Answer 1

program z;
var i,sum:integer;
begin
for i:=1 to 15 do sum:=sum+i;
write(sum);
end.