Операторы цикла в Delphi

[АлександрНСК]

Знаю, что уже спрашивал... Но я забыл кое что упомнуть... Программа должна состоять из трёх частей, каждая из которых реализует один из трёх операторов (For, While и repeat) цикла (3 кнопки) Я совершенно не соображаю... пока что у меня получается так..

Код:

 var k, n:integer;
    m: real;
    t: boolean;

begin
 If (n=3) and (k*k=m) then
  Form1.Edit1.Text:='Правда' ;


  If (n<3) and (n>3) then
  Form1.Edit1.Text:='Ложь';

  while (k>1) and (k mod 3=0) do begin
  k:=k div 3;

end;

t:=k=1;

end;

end.

!!! (Это для одной кнопки...)

Прошу помощи, так как совершенно не понимаю.. Задание для Delphi !!!