....
var
z: char;
a, b: real;
begin
write('vvedite znak');
readln(z)
case я of
1: if z = '*' then write(a*b)
2: if я = '/' then ...
3: '+'
4: '-'
end;
......