program ocko;
uses crt;
var cislo: 2..8;
    sucet: integer;
begin
  writeln('Program bude scitavat nahodne cisla od 2 do 8');
  writeln('az pokym prvykrat tento sucet nepresiahne sucet 21');
  writeln('Mozme zacat?');
  readln;
  randomize;
  cislo:=random(7)+2;
  write(cislo,' ');
  delay(1500);
  sucet:=cislo;
  while sucet<=21 do
    begin
      cislo:=random(7)+2;
      write(cislo,' ');
      delay(1500);
      sucet:=sucet+cislo;
      if sucet=21 then writeln('Sucet je presne 21 - ocko');
    end;
  writeln('Koniec programu ... sucet je: ',sucet);
  readln;
end.



vhodnejšie:
program ocko_lepsie;
uses crt;
var cislo: 2..8;
    sucet: integer;
begin
  writeln('Program bude scitavat nahodne cisla od 2 do 8');
  writeln('az pokym prvykrat tento sucet nepresiahne sucet 21');
  writeln('Mozme zacat?');
  readln;
  randomize;
  sucet:=0;
  while sucet<=21 do
    begin
      cislo:=random(7)+2;
      write(cislo,' ');
      delay(1500);
      sucet:=sucet+cislo;
      if sucet=21 then writeln('Sucet je presne 21 - ocko');
    end;
  writeln('Koniec programu ... sucet bol: ',sucet);
  readln;
end.