program CountRectangles;

var
k, a, b, verticalRectangles, horizontalRectangles: integer;

begin
verticalRectangles := 0;
horizontalRectangles := 0;

writeln('Введите количество прямоугольников: ');
readln(k);

for var i := 1 to k do
begin
writeln('Введите длину стороны A прямоугольника ', i, ': ');
readln(a);
writeln('Введите длину стороны B прямоугольника ', i, ': ');
readln(b);

if a > b then
verticalRectangles := verticalRectangles + 1
else
horizontalRectangles := horizontalRectangles + 1;

end;

writeln('Количество вертикально расположенных прямоугольников: ', verticalRectangles);
writeln('Количество горизонтально расположенных прямоугольников: ', horizontalRectangles);

end.