Написать программу,которая запросит у пользователя два числа и одине из знаков : + - * / и выведет на экран результат соответствующего арифметического действия. .

Program z1;
var a,b:real;
c:char;
begin
read(a,b,c);
if c='+' then writeln(a+b) else
if c='-' then writeln(a-b) else
if c='*' then writeln(a*b) else
if c='/' then writeln(a/b) else
writeln('символ не арифметического действия');
end.

Program ABC;var A,B,C:real;D:char;beginwrite ('Введите знак операции ');read (D);write ('Введите два числа ');read (A,B);case D of'+' : C:=A+B;'-' : C:=A-B;'*' : C:=A*B;'/' : C:=A/B;end;writeln (C);end.