програма в паскале

[Алекс13]

Ребята помогите срочно с универа выгонят!!!!написать программу на Паскале:
вводится с клавиатуры три числа пять раз,из чисел с нечетными номерами подсчитать сумму четных чисел и количество отрицательных !!!!пожалуйста помогите уже две недели парюсь((((((

[Sciv]

Сильно сомневаюсь, что за одну программу выгонят. Видимо, косяков у тебя дофига, и одна программа ничего не решит. Ну держи:

var a,b,c,sum: real;
    coL,i : integer;
begin
  col:=0;
  sum:=0;
  for i:=1 to 5 do begin
    ReadLn(a,b,c);
    if odd(i) and odd(b) then sum:=sum+b;
    if not odd(i) and odd(a) then sum:=sum+a;
    if not odd(i) and odd(c) then sum:=sum+c;
    if (a<0) then inc(col);
    if (b<0) then inc(col);
    if (c<0) then inc(col);
  end;
  writeln('Summa=',sum:2:2);
  writeln('Kol-vo=',col);
  readln;
end.

[Poma][a]

Sciv, а где ж у Вас ввод?

[Sciv]

Sciv, а где ж у Вас ввод?

Ну забыл, забыл... у меня три ночи было в это время. Исправил

[Poma][a]

Ну забыл, забыл...

Не-не-не.. Мой пост <> наезд, просто думал вдруг я снова неправильно прочитал условие А ночными постами все косячим
Снова 2 поста.. ужась..

[Алекс13]

спасибо большое))))))))))