Ошибка: Встречено 'else', а ожидалось ';' - PascalABC.NET

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

Помогите решить проблему, пожалуйста. Program2.pas(28) : Встречено 'else', а ожидалось ';'

begin
  writeln('a=');
  readln(a);
  writeln('b=');
  readln(b);
  writeln('c=');
  readln(c);
  if (a<>b) and (a<>c) and (b<>c) then
    if (a<b) and (a<c) then
    writeln('Наименьшее: ',a)
    else
      if (b<a) and (b<c) then
      writeln('Наименьшее: ',b)
      else
      writeln('Наименьшее: ',c)
  else
    if (a=b) and (a=c) and (b=c) then
    writeln('Числа равны')
  else
    if (a=b) and (a<c) then
    writeln('Наименьшее: ',a)
    else
    writeln('Наименьшее: ',c)
  else
    if (a=c) and (a<b) then
    writeln('Наименьшее: ',a)
    else
    writeln('Наименьшее: ',b)
  else
    if (b=c) and (b<a) then
    writeln('Наименьшее: ',b)
    else
    writeln('Наименьшее: ',a);
end.

Условие: найти наименьшее из трех чисел

Решение задачи: «Ошибка: Встречено 'else', а ожидалось ';'»

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

                            var a,b,c,mn:real;
begin
readln(a,b,c);
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
write('min=',mn:0:2);
end.
                        