uses crt;
var
  step,distance,a:integer;
begin
  randomize; 
  clrscr;
  step:=0;distance:=0;
  repeat
  begin
    step:=step+1;
    a:=round(random(2));
    if a=1 then distance:=distance+1
    else distance:=distance-1;
    write('Step :',step);
    writeln('        Distance :',abs(distance),' steps');
   end;
  until abs(distance)=50;
  readln;
end.