На выставке собак где были представлены разные породы, отбор животных производится по возрасту и высоте полки. Определить сколько было боксеров 2-3 летнего возраста с высотой полки не менее 55 см.

Program pr3; var poroda:string; age,holka:real; n,i,k:integer; begin repeat write ('Введите количесвто собак на выстовке: '); readln (n); until n>0; k:=0; for i:= 1 to n do begin writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: '); readln (poroda); readln (age); readln (holka); if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1; end; if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k)  else writeln ('Боксеров с нужными критриями навыставке не обнаружено'); end.