{ (c) 1998 CREEQ <creeq@web.de> }
program Zahlen;
uses Crt;
var a,b,d,e : integer;
    c : string;
label 1,2,3;

begin
  clrscr;
  writeln('Geben sie bitte ein natrliche Zahl ein.');
  readln(a);
  writeln('Geben sie bitte eine zweite natrliche Zahl ein.');
  readln(b);
  writeln('Geben sie bitte *,-,+ oder : ein');
  readln(c);
  if c = '+' then d := a+b;
  if c = ':' then begin d := a div b; e := a mod b; goto 1; end;
  if c = '-' then d := a-b;
  if c = '*' then d := a*b;
1:writeln('Das Ergebnis lautet ',d,',',e);
  goto 3;
2:writeln('Das Ergebnis lautet ',d);
3:readkey;
end.