ПОМОГИТЕ С НАПИСАНИЕМ ИГРЫ Опции

[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.