составить программу,в которой...

составить программу,в которой вводятся числа х,у символ арифметической операции "+", "-", "*" или "/" , и выполняется соответствующая введеномусимволу арифметическая операция над Х и У

 

Program reshalkino;
Var x,y,z:real;
c:char;
BEGIN
readln(x);
readln(y);
readln(c);
if c='+'
then z:=x+y
else if c='-'
then z:=x-y
else if c='*'
then z:=x*y
else if c='/'
then z:=x/y;
writeln(z);

END.