Вбаскетбольную секцию принимаются юноши, достигшие возраста 13 лет и ростом не ниже 165 см. составьте программу зачисления юношей в секцию. результат выдавать в виде: «принят», «не принят». на языке pascal с решением

Program test;
var
 a,r:integer;
begin
  write('Введите возраст:');
  readln(a);
  write('Введите рост (в см):');
  readln(r);
  if (a>=13) and (r>=165) then writeln('ПРИНЯТ') else writeln('НЕ ПРИНЯТ');
end.