Надежда Дворенкова uses crt; Var i, s, N:integer; Begin Clrscr; Writeln('введите N меньшее 100: '); Read(N); s:=0; For i=1 to N do s:=s+i; Writeln('сумма чисел от 1до ',N,' = ',s); End.