Простенькая программа, калькулятор, вводятся два числа и действие, которые желает выполнить пользователь. Программа производит это действие с двумя введёнными выше цифрами. Program Calculator;

uses crt;

var OP: char;

x,y,z: real;

BEGIN

clrscr;

writeln (‘Введите исходные данные’);

writeln (‘Введите число Х’);

readln (X);

writeln (‘Введите число У’);

readln (y);

writeln (‘Введите операцию ОР’);

readln (OP);

case OP of

‘+’ : z:=x+y;

‘*’ : z:=x*y;

‘-‘ : z:=x-y;

‘/’ : z:=x/y;

‘^’ : z:=exp(y*ln(x));

end;

writeln (‘z=’,z);

readln;

END.