Wie kann ich in Pascal kürzen?

[sakura]

Kürzen ließe es sich schon, allerdings leidet die Lesbarkeit des Codes sehr. Wäre nicht so empfehlenswert...

Delphi-Quellcode:

begin
     write('Gib den Nenner ein : ');
     readln(nenner);
     write('Gib den Zähler ein : ');
     readln(zahler);
     write('Gib das Rechenzeichen ein : ');
     readln(zeich);
     write('Gib den Zweiten Nenner ein : ');
     readln(nenner2);
     write('Gib den Zweiten Zähler ein : ');
     readln(zahler2);
     teiler:=zahler * zahler2;
     if zeich = '+' then begin
        nennerges:=nenner * (teiler div zahler) + nenner2 * (teiler div zahler2);
        writeln(nennerges);
        writeln(teiler);
     end;

......