составить программку f(x)=x-sinx отрезок [0,3]

program zz1;
var y:real; // заводим переменную не целого типа
x:integer; // заводим переменную целого типа
begin
for x:=0 to 3 do // организуем цикл для перебора значений по х
begin
y:=x - sin(x); // вычисляем значение функции по данной формуле
writeln( для х= ,x, у= , y:5:2); // выводим ответ для каждого значения х с новой строки, в формате 5 знаков для всего числа и два знака после точки
end;
end.