Вывести все положительные значения y. Если y=cos (x) - sin (x)

Program a; vary:real; i, x, n : integer; beginwriteln ('Введите значение x'); readln (x); writeln ('Введите количество повторений подсчета формулы'); readln (n);

for x:=1 to n dobeginy : = Cos (x) - Sin (x); if (y>0) Then Writeln (y); end; end.