Не знаю правельно или нет
Program Calculator;
var
a,c: real;
b: char;
begin
write('Введите первое число : ');
readln(a);
write('Введите действия с числами : ');
readln(b);
write('Введите второе число : ');
readln(c);
case b of
'+':a:=a+c;
'-':a:=a-c;
'/':a:=a/c;
'*':a:=a*c;
else
write('Вы вели не правельное действие!!!')
end;
write('Результат : ',a:6:2 )
end.