Zu Übungszwecken solltest du wenigstens das einmal in eine Funktion auslagern wie Sir Rufo das ja für alles Vorgeschlagen hat:
Delphi-Quellcode:
function MyOperatorAsString(op:Integer):String;
begin
if op=0 then
Result:='+'
else
//usw...
end;
oder zur weiteren Übung kannst du dir auch noch die Fallunterscheidung mit "Case" aneignen:
Delphi-Quellcode:
function MyOperatorAsString(op:Integer):String;
begin
case op of
0: Result := '+';
1: Result := '-';
//usw...
end;
end;
Im Hauptprogramm stünde dann bei der Ausgabe:
Writeln (FloatToStr(Zahl1) ,MyOperatorAsString(op) , FloatToStr(Zahl2));