60 пользователь вводит формулу, состоящую из двух цифр и одного из знаков операций (< +> , < - > , < * > , > ). например: 5+8. каждый символ вводится с новой строки. выведите словесное описание этой формулы (пять плюс восемь). нужно использовать оператор case.

program kontr;

var a,b: integer;

      c: char;

      n,m: string;

begin

writeln ('введите первую цифру');

readln(a);

writeln ('введите вторую цифру');

readln(b);

writeln ('введите один из знаков: +*,/');

readln(c);

case a of

0: n: ='ноль';

1: n: ='один';

2: n: ='два';

3: n: ='три';

4: n: ='четыре';

5: n: ='пять';

6: n: ='шесть';

7: n: ='семь';

8: n: ='восемь';

9: n: ='девять';

end;

case b of

0: m: ='ноль';

1: m: ='один';

2: m: ='два';

3: m: ='три';

4: m: ='четыре';

5: m: ='пять';

6: m: ='шесть';

7: m: ='семь';

8: m: ='восемь';

9: m: ='девять';

end;

case c of

'*': writeln (n,' умножить на ',m);

'/': writeln (n,' разделить на ',m);

'+': writeln (n,' плюс ',m);

'-': writeln (n,' минус ',m);

end;

end.

германия

испания

португалия

франция

чехия

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.