Составить программу pascal - калькулятор, которая запрашивает тип арифметической операции: 1-сложение, 2-вычитание, 3 - умножение, 4 - деление, а также два числа и производит над ними соответствующую арифметическую операцию. ввод чисел заканчивается нажатием клавиши 0. протокол работы программы: выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 - умножение, 4 - деление, 0 - выход. 1 введите два числа: 15 16 ответ: 15+16=31 выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 - умножение, 4 - деление, 0 - выход. 3 введите два числа: 5 8 ответ: 5*8=40 выберите тип арифметической операции: 1-сложение, 2-вычитание, 3 - умножение, 4 - деление, 0 - выход. 0 пока!

Var a,b: real; c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1: writeln(a+b);     2: writeln(a-b);     3: writeln(a*b);     4: writeln(a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. вывод результат, точно как в условии: var a,b: real;       c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1:         if b < 0 then writeln(a,b,'=',a+b)         else writeln(a,'+',b,'=',a+b);     2:         if b < 0 then writeln(a,'+',-b,'=',a-b)         else writeln(a,b,'=',a-b);     3:         if b < 0 then writeln(a,'*(',b,')=',a*b)         else writeln(a,'*',b,'=',a*b);     4:         if b < 0 then writeln(a,': (',b,')=',a/b)         else writeln(a,': ',b,'=',a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. пример: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 4 введите два числа: 4 -2.5 ответ: 4: (-2.5)=-1.6 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 1 введите два числа: -3 -6 ответ: -3-6=-9 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 0 пока!

Program pr; uses crt; var n,i: integer; x,y: real; begin writeln('введите x'); readln(x); writeln('введите n'); readln(n); y: =0; for i: =1 to n do y: =y+cos(power(x,i)); writeln('y = ', y); readln(); end.