игра "Кости", первый опыт, помогите пожалуйста Опции

[Creas]

собственно решил сделать такую простенькую игру, а в программирование особо не смыслю
это будет мой первый опыт и прошу пожалуйста разъяснить что и куда писать.
а вот и сама программа:

 
var
y,r,r1:integer;
begin
r:=Random(6)+1;
r1:=Random(6)+1;
y:=r+r1;
writeln('очки выпавшие на кубиках',r,' и ',r1);
writeln('сумма равна ',y);
end.
 

заранее благодарен

[Newbie in FPC]

Попробовал проверить работоспособность... в итоге, из рандом выбирается одно и тоже число и хранится в памяти)

Сообщение отредактировано: Newbie in FPC - 25.12.2010 10:46

[Lapp]

Попробовал проверить работоспособность... в итоге, из рандом выбирается одно и тоже число и хранится в памяти)

В самом начале программы поставь вызов

Randomize;

Сразу после первого begin.
Иначе числа будут случайными, но при каждом запуске одни и те же.