составить программу 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); / / выводим ответ для каждого значения х с новой строки, в формате пять знаков для всего числа и два знака после точки

end;

end.