Схема в приложенной картинке.
Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
Поставить на пк пароль, ахах
Program chik2;
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных