uses crt;

const n=3;

var i,s:integer;

 k:string;

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

begin

 repeat

 clrscr;

 s:=0;

 writeln('Задйате стаж работы в анкеты ');

 for i:=1 to n do begin

 write('Анкета ', i,': '); readln(a[i]);

 if a[i]>=5 then inc(s)

 end;

 writeln('По реузльтатам подходят ', s,' анкеты');

 writeln('Повторить - Enter. Выход - любой символ + Enter');

 readln(k);

 until k<>''

end.