Program P106;
 { Redefinirea constantelor }
const c=1;

function F1(x : integer) : integer;
begin
 F1:=x+c;
end; { F1 }

function F2(c : real) : real;
const x=2.0;
begin
 F2:=x+c;
end; { F2 }

function F3(x : char) : char;
const c=3;
begin
 F3:=chr(ord(x)+c);
end; { F3 }

begin
 writeln('F1=', F1(1));
 writeln('F2=', F2(1));
 writeln('F3=', F3('1'));
 readln;
end.