Ввести с клавиатуры знак арифметической операции (либо+ либо - либо * либо /(деление)и .два числа. Вывести на экран результат. При вводе знака операции # выход из программы.6

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.