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.