program kosar;
uses crt;
const csapat=10;
var magassag:array[1..csapat] of byte;

procedure beolvas;
var i:byte;

begin
  for i:=1 to csapat do
  begin
    write('Kerem a(z)',i,'. jatekos magassagat:');
    readln(magassag[i]);
  end;
end;

procedure eldont;
var i:byte;

begin
  for i:=1 to csapat do
  begin
    if magassag[i]>210 then
    begin
      write('Van 210cm-nel magasabb a csapatban.');
      exit;
    end
    else
    if i=csapat then
    begin
      write('Nincs 210cm-nel magasabb a csapatban.');
      exit;
    end;
  end;
end;

begin
  clrscr;
  beolvas;
  eldont;
  readln;
end.