Вычислить z: z = x-y, если x>y, и z = y-x+1 в противном случае - Pascal ABC

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

Даны действительные числа x, y. Вычислить z: z = x-y, если x>y, и z = y-x+1 в противном случае. Условный оператор

Решение задачи: «Вычислить z: z = x-y, если x>y, и z = y-x+1 в противном случае»

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

  var
    x,y,z: real;
begin
  write('vvedite x: ');
  readln(x);
  write('vvedite y: ');
  readln(y);
  if x>y then z:=x-y
    else z:=y-x+1;
  writeln('pri x = ',x:5:2,'; y = ',y:5:2,' z = ',z:5:2);
  readln;
end.

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

В первой строке объявлены три переменные типа real: x, y, z.
Во второй и третьей строках происходит ввод значений переменных x и y с помощью функции readln().
В четвертой строке выполняется проверка условия x>y и присвоение значения переменной z.
В пятой строке выводится результат вычисления в формате x = 12.34; y = 56.89; z = 69.00.
В шестой строке с помощью функции readln() ожидается нажатие любой клавиши для завершения работы программы.