На выставке собак где были представлены разные породы, отбор животных производится по возрасту и высоте полки. Определить сколько было боксеров 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=55) then k:=k+1;

end;

if k>0 then writeln ('Число боксеров c нужным возрастом и холкой на выставке: ', k) else writeln ('Боксеров с нужными критриями навыставке не обнаружено') ;

end.