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