Как правильно реализовать?

[Bright-rider]

Подскажите, как правильно реализовать повторение действий в программе?
У меня есть определённый кусок кода, который надо повторять несколько раз меняя значения перевенных.
Сорри за глупый вопрос

[Sparkman]

Сообщение от Bright-rider

Подскажите, как правильно реализовать повторение действий в программе?
У меня есть определённый кусок кода, который надо повторять несколько раз меняя значения перевенных.
Сорри за глупый вопрос

С помощью процедур и функций.

[_-Re@l-_]

Program Example;
Label One;
Var
     I,J:Integer;
Begin
        I:=0;J:=0;
        One:
        Writeln('Hello!!!');
        Inc(I);
        Inc(J);
        If (I<5) and (J<5) then Goto One;
        Readln;
End.

Ну, в классическом паскале так.

[grafgrial]

Var
i,t:Integer;
begin
t:=0;
for i:=0 to 9 do
Begin
//Ваш код
inc(t);
ShowMessage('Пример '+InttoStr(t)+'')
end;
end;