עותק: פורום לימודים
program xxx;vari,num,x:integer;beginx:=0;for i:=1 to 35 do begin readln(num); x:=x+num; end;writeln(x);end.