====== David's Pascal-Seite ======

===== Taschenrechner Abfrage =====

<file>
program Parameter;

var
  a : LongInt;
  b : LongInt;
  d : String;

begin
    WriteLn('Bitte geben Sie die erste Zahl ein:');
    readln(a);
    WriteLn('Bitte geben Sie das Rechenzeichen (+; -; *; /) ein:');
    readln(d);
    WriteLn('Bitte geben Sie die zweite Zahl ein:');
    readln(b);

    if d = '+' then
         begin
              WriteLn(a , ' + ' , b , ' = ' , a + b);
              readln();
         end;
    if d = '-' then
         begin
              WriteLn(a , ' - ' , b , ' = ' , a - b);
              readln();
         end;
    if d = '*' then
         begin
              WriteLn(a , ' * ' , b , ' = ' , a * b);
              readln();
         end;
    if d = '/' then
         begin
              WriteLn(a , ' / ' , b , ' = ' , a DIV b);
              readln();
         end
    else
        begin
              WriteLn();
        end;
end.
</file>