program Mala_nasobilka;

uses crt;

const maximum = 100;

var n, i : integer;

begin
  clrscr;
  writeln('Tento program vypise malou nasobilku ze zadaneho cisla.');
  writeln('Zadane cislo musi byt z intervalu (1,100).');
  repeat
    write('Vloz nasobitel : ');
    readln(n);
    if (n <= 0) or (n > maximum) then writeln('Vlozil jsi spatnou hodnotu.');
  until (n > 0) and (n <= maximum);
  for i := 1 to 5 do
    writeln(i:2,' x ',n:3,' = ',i*n:4,'           ',(i+5):2,' x ',n:3,' = ',(i+5)*n:4);
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.