Составить 3 комбинированных алгоритма (вычислительных)

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 уравнения на вычисления, комбинации (переменные) вписываешь сам. Название придумай. Я вопрос не очень понял, поэтому если что не так, все-равно навсякий случай сохрани ;)