If case ,ответите пожалуйста

Question

ввести с клавиатуры два арифметической операции (+ - * /) вывести на экран результат , соотвествующие этой операции

Вячеслав · Accepted Answer

var A, B : Real; Ch : Char; 
begin 
 Write('A = '); ReadLn(A); 
 Write('B = '); ReadLn(B); 
 Write('Операция (+ - * /) : '); ReadLn(Ch); 
 case Ch of 
 '+' : WriteLn(A, ' + ', B, ' = ', A+B); 
 '-' : WriteLn(A, ' - ', B, ' = ', A-B); 
 '*' : WriteLn(A, ' + ', B, ' = ', A*B); 
 '/' : if B = 0 then WriteLn('На 0 делить нельзя! ') 
 else WriteLn(A, ' / ', B, ' = ', A/B:0:5); 
 else WriteLn('Неверно задана операция. '); 
 end; 
end.