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

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

dmFyIFphaGwxIDogcmVhbDsKdmFyIFphaGwyIDogcmVhbDsKZnVuY3Rpb24gcGx1cwoKYmVnaW4KcGx1cyA6PSBaYWhsMSArIFphaGwyIDsKZW5kOwpmdW5jdGlvbiBtaW51cwpiZWdpbgptaW51cyA6PSBaYWhsMSAtIFphaGwyIDsKZW5kIDsKZnVuY3Rpb24gbWFsCgpiZWdpbgptYWwgOj0gWmFobDEgKiBaYWhsMiA7CmVuZDsKZnVuY3Rpb24gZ2V0ZWlsdAoKYmVnaW4KZ2V0ZWlsdCA6PSBaYWhsMSAvIFphaGwyIDsKZW5kOwpmdW5jdGlvbiB3JmF1bWw7aGxlbgpiZWdpbgppZiAocGx1cykgdGhlbgpiZWdpbgp3cml0ZWxuKHBsdXMpOwplbmQKZWxzZQpiZWdpbgp3cml0ZWxuKG1pbnVzKTsKZW5kOwppZiAobWFsKSB0aGVuCmJlZ2luCndyaXRlbG4obWFsKTsKZW5kCmVsc2UKYmVnaW4Kd3JpdGVsbihnZXRlaWx0KTsKZW5kOwplbmQ7CgpiZWdpbgp3cml0ZSgnVyZhdW1sO2hsZW4gc2llIFphaGwxOicpIDsKcmVhZGxuKFphaGwxKSA7CndyaXRlKCdXJmF1bWw7aGxlbiBzaWUgWmFobDI6JykgOwpyZWFkbG4oWmFobDIpIDsKd3JpdGUoJ1cmYXVtbDtobGVuIHNpZSBlaW5lIFJlY2hlbmFydCBhdXMnKQp3aXRlbG4odyZhdW1sO2hsZW4pIDsKcmVhZGxuIDsKZW5kLg==

var Zahl1 : real;
var Zahl2 : real;
function plus

begin
plus := Zahl1 + Zahl2 ;
end;
function minus
begin
minus := Zahl1 - Zahl2 ;
end ;
function mal

begin
mal := Zahl1 * Zahl2 ;
end;
function geteilt

begin
geteilt := Zahl1 / Zahl2 ;
end;
function wählen
begin
if (plus) then
begin
writeln(plus);
end
else
begin
writeln(minus);
end;
if (mal) then
begin
writeln(mal);
end
else
begin
writeln(geteilt);
end;
end;

begin
write('Wählen sie Zahl1:') ;
readln(Zahl1) ;
write('Wählen sie Zahl2:') ;
readln(Zahl2) ;
write('Wählen sie eine Rechenart aus')
witeln(wählen) ;
readln ;
end.