Ребяточки, решите эту прекрасную ерунду

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

а) 

var i,n,s: integer; begin readln(n); s: =0; for i: =1 to n do begin s: =s+i; end; writeln(s); end.

б)

var a,n,i,s: integer; begin readln(n); s: =0; a: =2; for i: =1 to n do begin s: =s+a; a: =a+2 end; writeln('сумма первых ',n,' четных чисел равна ',s); a: =1; s: =0; for i: =1 to n do begin s: =s+a; a: =a+2; end; writeln('сумма первых ',n,' нечетных чисел равна ',s); end.

до перелива 8     0     0

1)                 3     5     0

2)                 3     2       3

3)                 6     2       0

4)                 6     0       2

5)                 1     5     2

6)                 1     4       3 

7)                   4     4       0