1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var i: integer

begin

For  i:=  1    to   5     do Begin
showmessage('Hallo');
showmessage('wie');
showmessage('geht');
showmessage('es');
showmessage('dir?');
end;

end;					

1:
2:
3:
4:
5:

showmessage('Hallo');
showmessage('wie');
showmessage('geht');
showmessage('es');
showmessage('dir?');					

1:
2:
3:
4:
5:
6:

const StrArray: array[1..5] of string = ('Hallo','wie','geht','es','Dir?');
var i: integer;
begin
  for i := Low(StrArray) to High(StrArray) do
    ShowMessage(StrArray[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var i: integer

begin

For  i:=  1    to   5     do Begin
writeLn(i);
end;

end;					

1:
2:
3:
4:
5:
6:
7:

var
  i: integer
begin
  for i := 1 to 5 do
  begin
    ShowMessage(IntToStr(i));
  end;