Задачи на Паскале [help], в основном на массивы Опции

[Kaliban]

Народ, нужно выполнить несколько задач в Паскале, а я не особо разбираюсь пока что.
Напишите, если не влом. Пока что не к спеху.



Спасибо за FAQ, помог. Первых два задания уже сделал.
Кста, 3е надо делать не через массивы... а как-то по-другому

[volvo]

Сумма - в скобках, то есть p/q к сумме не имеют никакого отношения...

...
s := 0;
for i:=1 to 12 do begin
  read(p[i],q[i]); s := s + (p[i]-q[i]);
end;

for i := 1 to 12 do
  d[i] := s * (p[i]/q[i]);
...

А для решения задач, подобных третьей, специально придумали функцию Pos (все, что требуется от программы - определить, встречается ли в заданной тобой строке запятая...)