Не знаю правельно или нет 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.