Zajímavá násobilka (uživatelsky definován start a konec c yklu)

násobilka, kdy zadáte počátek a konec cyklu:

program nasobilka;
uses crt;
var a, b, c, i, 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, ktere budes nasobit');
     readln  (A);
     writeln ('zadej cislo, od ktereho chces nasobit');
     readln  (B);
     writeln ('zadej cislo, do  ktereho chces nasobit');
     readln  (C);  
     clrscr;  {to je vymazani obrazovky}
     for i:=b to c  do

     {cyklus pro i od a  do b  dělej... -> cyklus probehne (b - a) krat}

         writeln (i,  ' x  ',a , ' =',i * a);
        {napise obsah promenne i, pak znacku nasobeni...}
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.