18.2.2

program nl_18_2_2; //Задаём имя программы

var x, z:real; //Объявляем переменные вещественного типа

begin  //Начало тела программы

x:=-12; //Присваиваем минимальное значение переменной x (по условию -12)

while x<=5 do begin //Инициализируем цикл с предусловием

z:=sin(x)-5*cos(x-2); //Вычисляем значение функции z(x)

if z>0 then //Выводим только положительные значения z(x)

writeln('Для x = ', x:0:2, ' z(x) = ', z:0:10);

x:=x+1.2; //Увеличиваем x с шагом 1.2

end; //Завершение цикла

end. //Конец тела программы