I want (pascal) program thanks for this nice site