Mine
public text v1 · immutable while losowa<>byte(m) DO begin
losowa:=Random(12);
ile:=ile+1;
end;
repeat
losowa:=Random (12);
ile:=ile+1;
until losowa<>byte(m); while losowa<>byte(m) DO begin
losowa:=Random(12);
ile:=ile+1;
end;
repeat
losowa:=Random (12);
ile:=ile+1;
until losowa<>byte(m);