uses crt;
const
  n = 7;
  mas: array[1 .. n] of string = (
    'Fizika','Datori','Ekonomika',
    'Sports','Filosofija','Politika','Astronomija'
  );

var
  s: string;

function prieksmets(s:string):string;
var
  x: string;
  found: boolean;
  i: integer;

begin
     prieksmets := ''; { no result }

     x := copy(s, 1, 3);
     i := 1; found := false;
     while (i <= n) and (not found) do
       if copy(mas[i], 1, 3) = x then begin
         prieksmets := mas[i] + ', ' + s[4] + '.kurss ' + s[5] + '.grupa';
         found := true;
       end
       else inc(i);
end;

begin
   clrscr;
   readln(s);
   writeln(prieksmets(s));
   readkey;
end.