Вибір. Команда Case.

Арифметичні дії над числами пронумеровані наступним чином: 1 - додавання, 2 - віднімання, 3 - множення, 4 - поділ. Дан номер дії N (ціле число в діапазоні 1-4) і речові числа A і B (В не дорівнює 0). Виконати над числами вказане дію і вивести результат


var
a,b,o: integer;
begin
 writeln (‘введіть номер дії’);
 readln (o);
  writeln (‘введіть  2 числа’);
  readln (a,b);
    case o
      1: writeln (‘результат=’, a+b);
      2: writeln (‘результат=’, a-b);
      3: writeln (‘результат=’, a*b);
      4: writeln (‘результат’, a/b:5:2);
                      else writeln (‘неправильно’);
                      end;
end.




var
a,b, integer; o:char;
begin
 writeln (‘введіть номер дії’);
 readln (o);
  writeln (‘введіть  2 числа’);
  readln (a,b);
    case o
      '+': writeln (‘результат=’, a+b);
       '-': writeln (‘результат=’, a-b);
       '*': writeln (‘результат=’, a*b);
       '/': writeln (‘результат’, a/b:5:2);
                      else writeln (‘неправильно’);
                      end;
end.