Задача на Паскаль

[Mitti]

Всем доброго времени стуток! Вобщем такая дрянь:я учусь на певом курсе и на зачёте сразу влетел, преподу мало денег, он валит по полной! Умоляю помогите с решением задачи!
Условие такое: Есть некое число К, если оно чётное то делится на 2(К/2), если же не чётное то умножается на 3 и прибавляется 1(3К+1). Надо на паскале написать такую программу которая будет считать количество действий, которые нужно произвести с числом для достижения одного(1)!
Например возьмём число К=5: 5==>16==>8==>4==>2==>1 (надо что бы программа считала эти долбаные стрелки!!((()
Админы,модеры прошу: Не удаляйте, а помогите! Я ламобот в паскале абсолютно! В школе С+ учили. Прошу прощения за создание певой темы правила не читал, у меня зачёт завтра!!!((

[Mitti]

Я уже весь мозг сломал получается какой то бред
Program P1;
label 1;
var k:Integer;
Procedure Proc(k:Integer);
begin
If k mod 2=0 Then k:raund(k/2)
else k:=3*k+1;
end;
Begin
wr:teln('enter k');
readln(k);
Pros(k);
wr:teln(k);
regdeln
go to 1;
end.

[Alex_FF]

var
  K, R: Integer;
begin
  WriteLn('Введите число');
  ReadLn(R);
  WriteLn;
  Write(R);
  K := 0;
  while R <> 1 do
  begin
    Inc(K);
    if R mod 2 = 0 then R := R div 2
    else R := 3 * R + 1;
    Write('==>', R);
  end;
  WriteLn;
  WriteLn;
  WriteLn('Действий: ', K);
  ReadLn;
end.

[Mitti]

Спасибища! Выручили! Завтра проверим работает ли)))