program Funkcijos;

uses Math;

var z,x0:integer;

 

// I pvz.

function Funkcija : integer;

Begin

    Funkcija := 5;

end;

 

// II pvz.

function Sim(a:char) : integer;

Begin

 Sim:= Ord(a);

 end;

 

 // III pvz.    Rasti funkcijos F(x) = x + 2 * x - sinx reiksme taske x0 = 1

 function   F(x:integer) :real;

 Begin

        F:= x + 2 * x - sin(x);

 end;

 

begin

// I pvz.

 z:= Funkcija + 7;

 Writeln(z:4);

 

// II pvz.

 Writeln('Simbolio a kodas: ', Sim('a'));

 

// III pvz.

    x0 := 1

 Writeln('Funkcijos reiksme: ', F(x):4:2);

 Readln;

end.

Writeln('Funkcijos reiksme: ', F(x):4:2);