[friz]

50\50 можно сделать рандомом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m,k:byte;
begin
randomize;
m:=random(4)+1;
k:=m;
while k=m do
k:=random(4)+1;

memo1.Text:=inttostr(m) + ' '+inttostr(k);
end;