Как написать на паскале программу (см)?

В программу вводится число x Программа содержит цикл который должен выполняться пока x<>1. При этом если x - чётное то x:=x/2, а если не чётное то x:=(3x+1)/2 Как сделать программу работающую с такими условиями?