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

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

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);

end;

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

end.