Помогите, пожалуйста, с созданием первой игры! Опции

[alex 10]

помогите пожалуйста! Хочу создать простую игру,но у меня не получилось!

помогите пожалуйста!! на паскале програмировать начал недавно. Пробовал писать графические игры-но ничего не получилось!

[alex 10]

ура получилось!!!

uses crt;
 var a,d,g:integer;
begin
 clrscr;
 a:=1;
 d:=2;
 g:=3;
 while g=a+d do
  begin
   randomize;
   a:=random(10);
   d:=random(10);
   write(a,'+',d);
   readln(g);
  end;

end.

Добавлено через 7 мин.
маленький upgrade

uses crt;
var a,d,g,ff:integer;
begin
clrscr;
writeln('до какого числа можно мне выдавать числа?');
readln(ff);
a:=1;
d:=2;
g:=3;
while g=a+d do
begin
randomize;
a:=random(ff);
d:=random(ff);
write(a,'+',d);
readln(g);
end;

end.

Сообщение отредактировано: OCTAGRAM - 23.10.2015 8:26