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.