18.2.2
Shchukoprogram 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. //Конец тела программы