Помогите по информатике пожалуйста срочно циклы на паскаль

Вот пример кода на языке Паскаль, который реализует цикл с предусловием для заданного выражения:

program CycleWithCondition;

var
x, y, z : real;

begin
y := 0.5;

repeat
writeln('Enter the value of x (between 0.3 and 1.8):');
readln(x);
until (x >= 0.3) and (x <= 1.8);

z := x * (sin(x) + cos(x) * y);

writeln('The value of z is:', z:10:4);
end.

Объяснение кода:

1. Сначала мы объявляем три переменные: x, y и z.
2. Мы устанавливаем значение y в 0.5.
3. Затем мы используем цикл repeat-until для ввода значения x, пока оно не находится в диапазоне от 0.3 до 1.8.
4. Внутри цикла мы запрашиваем ввод значения x у пользователя с помощью readln(x).
5. После того, как пользователь введет допустимое значение x, мы рассчитываем значение z по формуле z := x * (sin(x) + cos(x) * y).
6. Наконец, мы выводим значение z на экран с использованием writeln.

Этот код будет повторять ввод значения x, пока оно не будет находиться в заданном диапазоне, а затем вычислит и выведет значение z.