1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
i1,i2,i3,i4,i5,i6,i7,i8,i9:Integer;
i11,i22,i33,i44,i55:Integer;
i,p:integer;    // i fuer jahr
begin
p:=8;// Aktionspunkt
for i:=1 to 10 do
  begin
randomize;//Zufallgenerator auf Startwert setzen(Initialisieren)
i11:=random(p);//Zufallszahl von 0..p
i1:=i1 +i11;
i22:=random(p-i11);//Zufallszahl von 0..p-i11
 i2:=i2 + i22;
i33:=random(p-i11-i22);//Zufallszahl von 0..p-i11-i22
i3:=i3+i33;
i44:=random(p-i11-i22-i33);//Zufallszahl von 0..p-i11-i22-i33
i4:=i4 +i44;
i55:=random(p-i11-i22-i33-i44);//Zufallszahl von 0..p-i11-i22-i33-i44
i5:=i5+i55;
writeln(i11,' ',i22,' ',i33,' ',i44,' ',i55);
end;
readln
end.					

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG922d5ce7f1f4785135d2ccc6afd517a5}</span></span>					

1:

var Test: integer;