var
  i: integer;
  a: array of string := ('Masha', 'Pasha', 'Sveta');
begin
  readln(i);
  writeln(a.Length >= i ? a[i - 1] : 'Нет ученика');
end.