Написать программу на языке паскаль. С клавиатуры вводятся длины сторон К
прямоугольников. Посчитать количество вертикально
расположенных и количество горизонтально
расположенных прямоугольников, исходя из того, что
сторона А всегда параллельна оси Х, а сторона В -
оси У.

Предыдущий
вопрос Следующий
вопрос

program CountRectangles;

var
K, A, B, verticalRectangles, horizontalRectangles: integer;

begin
verticalRectangles := 0;
horizontalRectangles := 0;

writeln('Enter the number of rectangles: ');
readln(K);

for i := 1 to K do
begin
writeln('Enter the length of side A of rectangle ', i, ': ');
readln(A);

writeln('Enter the length of side B of rectangle ', i, ': ');
readln(B);
if A > B then
verticalRectangles := verticalRectangles + 1
else
horizontalRectangles := horizontalRectangles + 1;

end;

writeln('Number of vertical rectangles: ', verticalRectangles);
writeln('Number of horizontal rectangles: ', horizontalRectangles);
end.