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

Если речь идет о паскале, то вот решение:

Var x,y:integer;
Begin
 write('x=');
 readln(x);
 y:=x-1;
 writeln('y=',y);
 readln;
End.