Program Menghitung_fungsi_f_X; ( Algoritma dan Pemograman )

Program Menghitung_fungsi_f_X;
var
   X :integer;
function F(x : integer):integer;
begin
     F := 3 * X +2;
end;

begin
     write('Masukan X : ') ;readln(x);
     write('F (',X,') = ',F(x));
     readln;
end.