задача на цикл, пмогите Опции

[Fallen59]

Привет всем. Помогите решить задачу(а то одна неделя ост до зачета а мне защищать лабу надо=((():
1. ВВодятся переменные x,y,t,k
2. Пока x-y<t*k выполнять:
если x+k>t тогда a=ln(x+k), b=tgx, t=t+5.1
иначе a=y/k-xt, b=sqr(t-k), y=y+7,2, x=x-4,3
3 Выдать на экран значение a,b
4 Выполнить пункты 1-3 7 раз.


с 1 по 3 я знаю как делать, а как их повторить 7 раз нет, помогите плиз...как это в программе написать??

[мисс_граффити]

например:

for i:=1 to 7 do
  begin
//то, что ты знаешь как делать
  end;