Функция задана формулой y=(x-1) составить программу для ее вычисления

спасибо братан

Если речь идет о паскале, то вот решение:Var x,y:integer;Begin write('x='); readln(x); y:=x-1; writeln('y=',y); readln;End.