Задачи на тему «Алгоритм ветвления» (инструкция If…Then…Else) - Turbo Pascal

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

Даны 2 числа. Если первое число принадлежит отрезку [19,30], то вычислить корень этого числа. Если второе число не принадлежит отрезку (-5, 15), то возвести его в квадрат. В остальных случаях числа оставить без изменений

Решение задачи: «Задачи на тему «Алгоритм ветвления» (инструкция If…Then…Else)»

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

var
  x, y: real;
 
begin
  readln(x, y);
  if (x >= 19) and (x <= 30) then
    x := sqrt(x);
  if not ((y > -5) and (y < 15)) then
    y := sqr(y);
  writeln(x, ' ', y);
end.

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

Ввод значений переменных x и y с помощью функции readln().
Использование условного оператора if...and для проверки диапазона значения переменной x, если условие выполняется, то присваивание переменной x значение квадратного корня от x с помощью функции sqrt().
Использование условного оператора if...not для проверки диапазона значения переменной y, если условие не выполняется, то присваивание переменной y значение квадрата от y с помощью функции sqr().
Вывод значений переменных x и y с помощью функции writeln().