Salto hacia adelante para revisar un código

Hola, en esta oportunidad quise compartir un pequeño pero didatico programa que hace uso de varios elementos muy útiles en Pascal:
Se hace uso de dos estructuras repetitivas, ciclo Repeat y ciclo While. Se utiliza el condicional simple,
se muestra un esquema de como manejar un menú de opciones y además como hacer el formateo de un valor numérico.

Es cuestión de invertir solo un poco de tiempo para analizar y entender el código, luego a aplicarlo en sus propios programas

program menu;
uses crt;
var opc : string[1];
    n1,n2:real;
BEGIN
  repeat
    clrscr;
    writeln('1.- Leer numeros ');
    writeln('2.- Sumarlos');
    writeln('3.- Restarlos');
    writeln('4.- Multiplicarlos');
    writeln('5.- Dividirlos');
    writeln('F.- Finalizar la calculadora');
    write('Seleccione su opción:');
    readln(opc);
    if opc='1' then begin
      clrscr;
      write('Indique primer número:');
      readln(n1);
      write('Indique segundo número:');
      read(n2);
    end;
    if opc='2' then begin
      clrscr;
      write('La suma de ',n1:8:2,' + ',n2:8:2,' es:',n1+n2:8:2);
      readkey;
    end;
    if opc='3' then begin
      clrscr;
      write('La resta de ',n1:8:2,' - ',n2:8:2,' es:',n1-n2:8:2);
      readkey;
    end;
    if opc='4' then begin
      clrscr;
      write('La multiplicación de ',n1:8:2,' * ',n2:8:2,' es:',n1*n2:8:2);
      readkey;
    end;
    if opc='5' then begin
      clrscr;
      write('La division de ',n1:8:2,' / ',n2:8:2,' es:',n1/n2:8:2);
      readkey;
    end;
  until ((opc='F') or (opc='f')) 
END.

Hay otro programa que demuestra el uso de matrices, los interesados escribirme al correo.