All pastes #2122447 Raw Edit

Mine

public text v1 · immutable
#2122447 ·published 2012-02-28 16:01 UTC
rendered paste body
 while losowa<>byte(m) DO begin
  losowa:=Random(12);
  ile:=ile+1;
  end;
repeat
losowa:=Random (12);
ile:=ile+1;
until losowa<>byte(m);