program r16_75;
uses crt;
var n:array[1..40] of string;
      i,k:byte;
Begin
write ('Введите k-количество человек в классе(k<=40): ');
readln(k);
writeln('Введите имена учеников');
for i:=1 to k do readln(n[i]);
  i:=1;
  while(i<=k)and (n[i]<>'Маша')do
   i:=i+1;
   if i>k
    then writeln('В классе нет Маши')
   else writeln('В классе есть Маша');
END.