Перевод с АЯ на PASCAL, возникает ошибка

Формулировка задачи:

Пoмoгитe перевести с алгоритмического языка на pascal, как будет правильно? Долго уже сижу, ошибка возникает.

алг EDU
цел a,b,c
нач
ввод a,b
если a>0 то
если b>0 то
c:=a+b
иначе
c:=10
кв
иначе
если b>0 то
c:=a*b
иначe
c:=0
кв
кв
вывод c
кон

Решение задачи: «Перевод с АЯ на PASCAL, возникает ошибка»

Листинг программы

var a, b, c: integer;
begin
  readln(a, b);
  if a > 0
    then if b > 0
      then c := a + b
      else c := 10
    else if b > 0
      then c := a * b
      else c := 0;
  writeln(c)
end.

Объяснение кода листинга программы

В начале объявляются три переменные типа integer: a, b и c.
Затем происходит чтение двух чисел с помощью функции readln.
В блоке if проверяется, больше ли первое число (a) нуля. Если это условие истинно, то проверяется, больше ли второе число (b) нуля.
Если оба условия истинны, то переменная c присваивается сумме a и b.
Если первое условие истинно, но второе ложно, то переменная c присваивается единице.
Если первое условие ложно, но второе истинно, то переменная c присваивается произведению a и b.
Если оба условия ложны, то переменная c присваивается нулю.
Наконец, с помощью функции writeln значение переменной c выводится на экран.