Нужно написать программу на языке паскаль. С клавиатуры вводятся длины сторон К
прямоугольников. Посчитать количество вертикально
расположенных и количество горизонтально
расположенных прямоугольников, исходя из того, что
сторона А всегда параллельна оси Х, а сторона В -
оси У.
var
a,b,k,i,k1:integer;
begin
write('Сколько фигур: '); readln(k);
b:=0; k1:=0;
for i:=1 to k do
begin
write('Стороны ',i,'-го треугольника(A B): '); readln(a,k);
if a>=k then
if a>k then
inc(b)
else inc(k1);
end;
writeln('Горизонтальных: ',b);
writeln('Вертикальных: ',i-b-k1);
if k1<>0 then
writeln('Квадратов: ',k1);
end.
Если моё решение вам, пометьте его лучшим !