program procedures_with_arrays;
procedure DIAKRISH(var filo:char, bathmos:integer);
begin
if filo='A' then
   begin
    writeln('Είσαι άνδρας');
    if bathmos > 10 then
      begin
       writeln('Μπράβο Πέρασες αγόρι μου');
      end
    else
      begin
       writeln('Δυστυχώς Κόπηκες αγόρι μου');
      end
    ;
   end
  else
   begin
    writeln('Είσαι Κορίτσι');
    if bathmos > 10 then
      begin
       writeln('Μπράβο Πέρασες κορίτσι μου');
      end
    else
      begin
       writeln('Δυστυχώς Κόπηκες κορίτσι μου');
      end
    ;
   end
  ;
end
;

var
onoma:string;
filo:char;
bathmos:integer;

begin
 writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
 readln(onoma);
 readln(filo);
 readln(bathmos);
 while onoma <> 'TELOS' do
   begin
   DIAKRISH(filo,bathmos);
   writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
   readln(onoma);
   if onoma = 'TELOS' then
    begin
     writeln('Τελειώσαμε. Ευχαριστώ για τις πληροφορίες');
    end
   else
    begin
     readln(filo);
     readln(bathmos);
    end
   ;
   end
 ;
end.