Нужно составить 3 программы на Free Pascal

[Shabanoff]

Всем привет, помогите составить несколько программ по поскалю. Буду рад любой помощи!))
1- . Робот может перемещаться в четырех направлениях ("С" — север, "З" — запад, "Ю" — юг, "В" — восток) и принимать три цифровые команды: 0 — продолжать движение, 1 — поворот налево, –1 — поворот направо. Дан символ C — исходное направление робота и число N — посланная ему команда. Вывести направление робота после выполнения полученной команды.* (тема оператор выбора)
2 - . Дана матрица размера 3х3. Подсчитать сумму элементов в каждой строке. (тема двумерные массивы)
3 -. Дана матрица размера 3х3. Подсчитать Произведение элементов расположенных выше побочной диагонали. (двумерные массивы)

Заранее спасибо всем!))

[Sciv]

Решение 1 убрал, так как DiemonStar решил и лучше, и правильнее.

2)

for i:=1 to 3 do begin
  sum:=0;
  for j:=1 to 3 do sum:=sum+a[i,j];
  WriteLn('Сумма элементов строки ',i,'=',sum);
end;

3)

pr:=1;
for i:=1 to 2 do
  for j:=1 to 3-i do pr:=pr*a[i,j];

[DiemonStar]

Direction := 0; {0="С", 1 = "В", 2 = "Ю", 3="З"}
Readln(Cmd);
Direction := (Direction + Cmd + 4) Mod 4;
Case Direction of
  0: Writeln("С");
  1: Writeln("В");
  2: Writeln("Ю");
  3: Writeln("З");
end;{case}

по-моему такой вариант 1 задачи будет правильнее

[Sciv]

DiemonStar, кавычки должны быть одинарные, это паскаль

[DiemonStar]

Сообщение от Sciv

DiemonStar, кавычки должны быть одинарные, это паскаль

обычно мне о синтаксисе компилятор напоминает)