adfr

var
  cislo:integer;

procedure TForm1.Button3Click(Sender: TObject);
begin
cislo:=Random(100)+1;
memo1.lines.add(inttostr(cislo));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if Edit1.text = 'ok' then begin
     memo1.lines.add('Jupiii vyhral som');
     memo1.lines.add(inttostr(cislo));
  end
  else if Edit1.text = 'viac' then begin
     cislo:=Random(100-cislo)+(cislo+1);
     memo1.lines.add(inttostr(cislo));
  end
  else if Edit1.text = 'menej' then begin
     cislo:=Random(cislo)+1;
     memo1.lines.add(inttostr(cislo));
  end
  else memo1.lines.add('Zadal si neplatny prikaz. Do editu musis napisat bud ok, alebo viac, alebo menej.');
end;

end.