Programmeertaal Pascal

If Sel = '2' Then
  Begin 
    ClrScr;
    Write('Input No.1:');
    Readln(N1);
    Write('Input No.2:');
    Readln(N2);
    Total := N1 - N2;
    Write('Subtraction: ');
    Write(N1:2:3,' - ',N2:2:3,' = ',Total:2:3);
    Write('Press any key to continue...');
    Readkey;
  End;  { Closing the if statement }

De programmeertaal Pascal kan beschouwd worden als een afsplitsing van Algol, de laatste werd steeds complexer zodat het minder geschikt was voor het onderwijs.