Написать программу калькулятор: задаются два числа, символ арифметической операции (+,-,*,/), вывести результат в виде (5+6=11)

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.

uses crt;

var a, b, s:real; z:char;

begin

write ('Vvedite A = ') ;

readln (a) ;

write (' + - / * : ') ;

readln (z) ;

write ('Vvedite B = ') ;

readln (b) ;

case z of

'+': begin s:=a+b; writeln (a,' + ', b,' = ', s) ; end;

'-': begin s:=a-b; writeln (a,' - ', b,' = ', s) ; end;

'*': begin s:=a*b; writeln (a,' * ', b,' = ', s) ; end;

'/': begin s:=a/b; writeln (a,' / ', b,' = ', s) ; end;

else

writeln ('error: incorrect operation symbol!') ;

end;

readln;

end.