program qq;
var 
    x,y : double;

procedure foo(x, y: double);
begin
 if cos(x) <> cos(y) then writeln('everything is possible!')
end;

begin
 foo(1.0,1.0);
end.