What value would the following function return for the input x = 95?

Function fun (x:integer):integer;
Begin
     If x > 100 then fun : x – 10
     Else fun : fun(fun (x + 11))
End;

What is the result of the following program?

program side-effect (input, output);
var x, result: integer:
fucntion f (var x:integer):integer;
begin
    x:x+1;f:=x;
end
begin
    x:=5
    result:=f(x)*f(x)
    writeln(result)
end

What is the value of X printed by the following program?

program COMPUTE (input, output);
var
    X:integer;
procedure FIND (X:real);
    begin
    X:=sqrt(X);
    end;
begin
   X:=2
   Find(X)
   Writeln(X)
end

What does the following code do?

var a, b : integer;
begin
    a:=a+b;
    b:=a-b;
    a:=a-b;
end;