Вбаскетбольную секцию принимаются юноши, достигшие возраста 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.

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

 

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

 

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

       

 

end.

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.