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;
...
...