program {
  string pascal = ".pas"; 
  int c, basic=1;
  real unix = 3;
  write ("Specify int C>>");  read (c);
  while ((3+c)*2 > basic) c = c - 1;
  write (pascal," ",c);
}