sin: cos:
begin 
    real sin;
        sin := 0.0
end