PROGRAM einfacher_Taschenrechner;
 
Var int1,int2,result	:single;
	op,choice			:char;
 
BEGIN
	REPEAT
	write('Erste Zahl:');
	readln(int1);
	write('Zweite Zahl:');
	readln(int2);
	write ('Rechenmethode(+,-,*,/):');
	readln(op);
	IF op='+' THEN
	BEGIN
		result:=int1+int2
	END
	ELSE IF op='-' THEN
	BEGIN
		result:=int1-int2
	END
	ELSE IF op='*' THEN
	BEGIN
		result:=int1*int2
	END
	ELSE IF op='/' THEN
	BEGIN
		result:=int1/int2;
	END;
	write('Das Ergebnis lautet: ' ,result:10:6);
	write('Eine weitere Berechnung?(J/N)');
	readln(choice);
	UNTIL (choice='N') OR (choice='n');
END.

UFJPR1JBTSBlaW5mYWNoZXJfVGFzY2hlbnJlY2huZXI7CgpWYXIgaW50MSxpbnQyLHJlc3VsdAk6c2luZ2xlOwoJb3AsY2hvaWNlCQkJOmNoYXI7CgkKQkVHSU4KCVJFUEVBVAoJd3JpdGUoJ0Vyc3RlIFphaGw6Jyk7CglyZWFkbG4oaW50MSk7Cgl3cml0ZSgnWndlaXRlIFphaGw6Jyk7CglyZWFkbG4oaW50Mik7Cgl3cml0ZSAoJ1JlY2hlbm1ldGhvZGUoKywtLCosLyk6Jyk7CglyZWFkbG4ob3ApOwoJSUYgb3A9JysnIFRIRU4KCUJFR0lOCgkJcmVzdWx0Oj1pbnQxK2ludDIKCUVORAoJRUxTRSBJRiBvcD0nLScgVEhFTgoJQkVHSU4KCQlyZXN1bHQ6PWludDEtaW50MgoJRU5ECglFTFNFIElGIG9wPScqJyBUSEVOCglCRUdJTgoJCXJlc3VsdDo9aW50MSppbnQyCglFTkQKCUVMU0UgSUYgb3A9Jy8nIFRIRU4KCUJFR0lOCgkJcmVzdWx0Oj1pbnQxL2ludDI7CglFTkQ7Cgl3cml0ZSgnRGFzIEVyZ2VibmlzIGxhdXRldDogJyAscmVzdWx0OjEwOjYpOwoJd3JpdGUoJ0VpbmUgd2VpdGVyZSBCZXJlY2hudW5nPyhKL04pJyk7CglyZWFkbG4oY2hvaWNlKTsKCVVOVElMIChjaG9pY2U9J04nKSBPUiAoY2hvaWNlPSduJyk7CkVORC4=

MgoyCioKbg==

2
2
*
n