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