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

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