lab

uses
  crt;

var
  v1, v2, a, c, d, x1, x2: integer;

begin
  v1 := 5;
  v2 := 3;
  for d := 1 to 14 do
  begin
    for c := 1 to 14 do
    begin
      gotoxy(v1, v2);
      v1 := v1 + 1;
      a := random(6);
      if a = 1 then write('S');
      if (x1 = v1) and (x2 = 2) then EXIT;
    end;
    v1 := 5;
    v2 := v2 + 1;
  end;
  readln();
end.