Cyklus v cyklu

Pěkná pakárnička takový cyklus v cyklu!
Namaluj simulační tabulku!


program nasobilka;
uses crt;
var a, b, 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}

     for i:=1 to 3  do
        for j:=5 to 8  do
          {vnoreny cyklus pro i od 1 do 3 dělej... -> cyklus probehne 12x}
         writeln (i,  ' x  ',j , ' =',i * j);
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

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