Даны три целых числа. найти количество положительных и отрицательных в исходном наборе

Если не разделять понятия неотрицательных и положительных, то этот код: var a,b,c,p,o: integer; begin p: =0; o: =0; writeln('введи три числа'); readln(a,b,c); if a> =0 then p: =p+1 else o: =o+1; if b> =0 then p: =p+1 else o: =o+1; if c> =0 then p: =p+1 else o: =o+1; writeln('положительных чисел ',p); writeln('отрицательных чисел ',o) end. если разделять, то этот: var a,b,c,p,o,n: integer; begin p: =0; o: =0; n: =0; writeln('введи три числа'); readln(a,b,c); if a=0 then n: =n+1 else   if a> 0 then p: =p+1   else o: =o+1; if b=0 then n: =n+1 else   if b> 0 then p: =p+1   else o: =o+1; if c=0 then n: =n+1 else   if c> 0 then p: =p+1   else o: =o+1; writeln('положительных чисел ',p); writeln('отрицательных чисел ',o); writeln('нулей ',n) end.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.