Сделать меню в паскале - Turbo Pascal

Формулировка задачи:

Сделать так чтобы в паскале при нажатии клавиш выполнялось определенное действие. При нажатии клавиши: 1- квадрат числа 2-модуль 3-сумма 4 -разность 5 выход.

Решение задачи: «Сделать меню в паскале»

Листинг программы

Var k, x, y : integer;
begin
repeat
      Writeln('Enter k');
      readln(k);
      if (k=1) then
         begin
         Writeln('Enter x');
         Readln(x);
         Writeln('x^2=',x*x);
         end;
      if (k=2) then
         begin
         Writeln('Enter x');
         Readln(x);
         Writeln('|x|=',abs(x));
         end;
      if (k=3) then
         begin
         Writeln('Enter x');
         Readln(x);
         Writeln('Enter y');
         Readln(y);
         Writeln('x+y=',x+y);
         end;
      if (k=4) then
         begin
         Writeln('Enter x');
         Readln(x);
         Writeln('Enter y');
         Readln(y);
         Writeln('x-y=',x-y);
         end;
until (k=5);
end.

Объяснение кода листинга программы

Объявляются переменные k, x, y типа integer.
В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение 'Enter k'.
- Считывается значение переменной k с помощью функции readln.
- Если значение k равно 1, то выполняется следующая последовательность действий:
  - Выводится сообщение 'Enter x'.
  - Считывается значение переменной x с помощью функции readln.
  - Выводится строка 'x^2=', умноженное на значение переменной x, что представляет квадрат x.
- Если значение k равно 2, то выполняется следующая последовательность действий:
  - Выводится сообщение 'Enter x'.
  - Считывается значение переменной x с помощью функции readln.
  - Выводится строка '|x|=', умноженное на абсолютное значение переменной x, что представляет модуль x.
- Если значение k равно 3, то выполняется следующая последовательность действий:
  - Выводится сообщение 'Enter x'.
  - Считывается значение переменной x с помощью функции readln.
  - Выводится сообщение 'Enter y'.
  - Считывается значение переменной y с помощью функции readln.
  - Выводится строка 'x+y=', сумма значений переменных x и y.
- Если значение k равно 4, то выполняется следующая последовательность действий:
  - Выводится сообщение 'Enter x'.
  - Считывается значение переменной x с помощью функции readln.
  - Выводится сообщение 'Enter y'.
  - Считывается значение переменной y с помощью функции readln.
  - Выводится строка 'x-y=', разность значений переменных x и y.
Цикл repeat-until выполняется до тех пор, пока значение переменной k не станет равным 5.