program ideone;
begin
	(* your code goes here *)
end.

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

cHJvZ3JhbSBUYXNjaGVucmVjaG5lcjsKCnZhcgl6YWhsMSwgemFobDIsIGVyZ2VibmlzOiByZWFsOwoJb3BlcmF0b3I6IGNoYXI7Cgl3ZWl0ZXI6IGNoYXI7CgpCZWdpbgkKICByZXBlYXQKICAgIHdyaXRlKCdHZWJlbiBTaWUgZGllIGVyc3RlIFphaGwgZWluOiAnKTsKICAgIHJlYWRsbih6YWhsMSk7CgogICAgd3JpdGUoJ0dlYmVuIFNpZSBkaWUgendlaXRlIFphaGwgZWluOiAnKTsKICAgIHJlYWRsbih6YWhsMik7CgogICAgd3JpdGUoJ1cmYXVtbDtobGVuIFNpZSBkaWUgUmVjaGVuYXJ0ICgrLCAtLCAqLCAvKTogJyk7CiAgICByZWFkbG4ob3BlcmF0b3IpOwoKICAgIGNhc2Ugb3BlcmF0b3Igb2YKICAgICAgJysnOiBlcmdlYm5pcyA6PSB6YWhsMSArIHphaGwyOwogICAgICAnLSc6IGVyZ2VibmlzIDo9IHphaGwxIC0gemFobDI7CiAgICAgICcqJzogZXJnZWJuaXMgOj0gemFobDEgKiB6YWhsMjsKICAgICAgJy8nOiBiZWdpbgogICAgICAgICAgICAgaWYgemFobDIgJmx0OyZndDsgMCB0aGVuCiAgICAgICAgICAgICAgIGVyZ2VibmlzIDo9IHphaGwxIC8gemFobDIKICAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgIGJlZ2luCiAgICAgICAgICAgICAgIHdyaXRlbG4oJ0ZlaGxlcjogRGl2aXNpb24gZHVyY2ggMCEnKTsKICAgICAgICAgICAgICAgZXJnZWJuaXMgOj0gMDsKICAgICAgICAgICAgIGVuZDsKICAgICAgICAgICBlbmQ7CiAgICBlbHNlCiAgICAgIHdyaXRlbG4oJ1VuZ3VlbHRpZ2VyIE9wZXJhdG9yIScpOwogICAgICBlcmdlYm5pcyA6PSAwOwogICAgZW5kOwoKICAgIHdyaXRlbG47CiAgICB3cml0ZWxuKCdFcmdlYm5pczogJywgZXJnZWJuaXM6MDoyKTsKICAgIHdyaXRlbG47CgogICAgd3JpdGUoJ05vY2ggZWlubWFsIHJlY2huZW4/IChKL04pOiAnKTsKICAgIHJlYWRsbih3ZWl0ZXIpOwoKICB1bnRpbCAod2VpdGVyID0gJ04nKSBvciAod2VpdGVyID0gJ24nKTsKCiAgd3JpdGVsbjsKICB3cml0ZWxuKCdQcm9ncmFtbSBiZWVuZGV0LicpOwplbmQu

program Taschenrechner;

var	zahl1, zahl2, ergebnis: real;
	operator: char;
	weiter: char;

Begin	
  repeat
    write('Geben Sie die erste Zahl ein: ');
    readln(zahl1);

    write('Geben Sie die zweite Zahl ein: ');
    readln(zahl2);

    write('Wählen Sie die Rechenart (+, -, *, /): ');
    readln(operator);

    case operator of
      '+': ergebnis := zahl1 + zahl2;
      '-': ergebnis := zahl1 - zahl2;
      '*': ergebnis := zahl1 * zahl2;
      '/': begin
             if zahl2 <> 0 then
               ergebnis := zahl1 / zahl2
             else
             begin
               writeln('Fehler: Division durch 0!');
               ergebnis := 0;
             end;
           end;
    else
      writeln('Ungueltiger Operator!');
      ergebnis := 0;
    end;

    writeln;
    writeln('Ergebnis: ', ergebnis:0:2);
    writeln;

    write('Noch einmal rechnen? (J/N): ');
    readln(weiter);

  until (weiter = 'N') or (weiter = 'n');

  writeln;
  writeln('Programm beendet.');
end.