Program example;Uses CRT;VAR x: integer;VAR y: integer;VAR c: integer;begin;Writeln('Уравнение для решения это c=x+y');Writeln('Введите значение x...');Readln(x);Writeln('Введите значение y...');Readln(y);c:=x+y;Writeln('Результат, c=', c);readln;ClrScr;Writeln('Уравнение для решения это c=x-y');Writeln('Введите значение x...');Readln(x);Writeln('Введите значение y...');Readln(y);c:=x-y;Writeln('Результат, c=', c);readln;ClrScr;Writeln('Уравнение для решения это c=x*y');Writeln('Введите значение x...');Readln(x);Writeln('Введите значение y...');Readln(y);c:=x*y;Writeln('Результат, c=', c);readln;end.Вот в принципе 3 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)