Решить неравенство - Pascal ABC (16414)

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

Решить неравенство 1 или 2 1) 2) Помогите пожалуйста!!!

Решить с помощью программы Паскаль!

Решение задачи: «Решить неравенство»

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

var y:real;
begin
writeln('Задача 1');
y:=exp(ln(2)*2);
writeln('x>',y+1:0:2);
writeln('Задача 2');
y:=exp(ln(0.8)*1);//*1 можно не писать, это для понятия
writeln('2<x<',y+2:0:2);
end.

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

Создаётся переменная y типа real, которая будет использоваться в дальнейшем расчёте.
Выводится сообщение «Задача 1».
Вычисляется значение y по формуле exp(ln(2)*2). Здесь exp функция экспоненты, ln функция натурального логарифма, а 2 это число 2.
Выводится сообщение «x>», после которого идут значения y+1:0:2. Здесь y+1:0:2 это последовательность чисел от y до y+1, включительно, через каждые 0.8 единицы.
Выводится сообщение «Задача 2».
Вычисляется значение y по формуле exp(ln(0.8)*1). Здесь 0.8 это число 0.8, а 1 это число 1.
Выводится сообщение «2<x<», после чего идут значения y+2:0:2. Здесь y+2:0:2 это последовательность чисел от y до y+2, включительно, через каждые 0.8 единицы.
Конец программы.