Написать программку калькулятор :задаются два числа, знак арифметической операций

Program calculator;

var a,b:real; x:char;

begin

write('Введите два числа');

readln(a,b);

write('Изберите деяние');

readln(x);

If x='+' then writeln(a, x, b,'=',a+b);

If x='-' then writeln(a, x, b,'=',a-b);

If x='*' then writeln(a, x, b,'=',a*b);

If x='/' then writeln(a, x, b,'=',a/b);

end.