Program porovnávající cykly

úkol: 
Sestavte program, který vypíše násobilku z klávesnice zadaného čísla.  
Program vypíše pouze násobky z intervalu, který budete požadovat (zadáte z klávesnice jeho začátek a konec).

Konkrétně: 
Zadáte z klávesnice, že požadujete násobky od 3 do 5 pro číslo 6. Program vypíše: 
3 x 6 = 18 
4 x 6 = 24 
5 x 6 = 30  
V programu uveďte řešení pomocí 3 různých metod cyklů (for, repeat, while). 
Tato řešení oddělte ve výpisu vodorovnou čarou.  
------------------------------------------------------------- 


...a řešení:  
program nasobilka; 
uses crt; var a, b, c, i,j, klavesa: integer;  
begin  
repeat {to je zacatek cyklu, ktery konci tim until dole:  
program se bude motat dokola, dokud nekdo nezmackne klavesu 1}  
clrscr; {to je vymazani obrazovky}  
writeln ('zadej cislo, kterym se zacne nasobit');  
readln (A);  
clrscr; {to je vymazani obrazovky}  
writeln ('zadej cislo, kterym se skonci nasobit');  
{writeLN napise text a ukonci radek (na rozdil od write)}  
readln (B);  
writeln ('zadej cislo, ktere se bude nasobit');  
{writeLN napise text a ukonci radek (na rozdil od write)}  
readln (C);  
for i:=A to B do  
writeln (i, ' x ',c , ' =',i * c);  
{napise obsah promenne i, pak znacku nasobeni...}  
writeln ('-----------------------------------------');  
repeat  
writeln (a, ' x ',c , ' =',a * c);  
a:=a+1;  
until a>=b;  
writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');  
readln (klavesa);  
until klavesa<>1;  
{zde konci cyklus repeat}  
end.