Menu sencillito

PROGRAM menusencillito;

VAR
  opcion:char;
  base, altura:integer;
  area: real;
  a, b: real;
  numero: integer;
  c1,c2,c3,c4: integer;

BEGIN
writeln('1-->Hola mundo ');
writeln('2-->Calcular †rea de un tri†ngulo ');
writeln('3-->Dividir dos n£meros reales');
writeln('4-->Sumar los d°gitos de un n£mero de cuatro cifras ');

write('Ingresa una opci¢n y presiona enter: ');
readln(opcion);

writeln;

Case opcion of
'1':writeln('≠≠HOLA MUNDO!!');
'2':begin
    Write('Ingresa la base: ');
    Readln(base);
    Write(altura);

    area:=base*altura/2;
    Writeln('El †rea del triangulo es: ',area:1:2);
    end;
'3':begin
    Write('Ingrese un n£mero: ');
    Readln(a);
    Write('Ingresa otro n£mero: ');
    Readln(b);

    Writeln('El resultado de la divisi¢n es; ',a/b:1:2);
    end;
'4':begin
    write('Ingresa un n£mero de cuatro cifras: ');
    readln(numero);

    c1:= numero mod 10;
    c2:= (numero mod 100) div 10;
    c3:= (numero mod 1000)div 100;
    c4:= numero div 1000;

    Writeln('El resultado de suma ',c4'+',c3'+',c2,'+'.c1,' es: ',c1+c2+c3+c4);
    end;
else
     writeln('ERROR. No existe esa opci¢n ',opcion);
end;
END.