1 var i:integer;
 2     vysledek:real;
 3 
 4 begin
 5 
 6 writeln('cyklus FOR:');
 7 writeln('součet řady 1/1 + 1/2 + 1/3 +..+ 1/100');
 8 vysledek:=1;
 9 for i:=2 to 100 do begin
10     vysledek:=vysledek+1/i;
11     if (i=58) or (i=76) then
12         writeln('Mezivýsledek ',i,' : ',vysledek)
13 end;
14 writeln('Vysledek: ',vysledek);
15 
16 
17 writeln('cyklus WHILE');
18 i:=20;
19 while i>15 do begin
20     i:=i-1;
21     writeln(i);
22 end;
23 
24 writeln('cyklus REPEAT');
25 i:=10;
26 repeat
27     i:=i+1;
28     writeln(i);
29 until i>15;
30 
31 writeln('cyklus REPEAT ještě jednou');
32 i:=20;
33 repeat
34     i:=i-1;
35     writeln(i);
36 
37 until i>15;
38 
39 end.