Нужно написать программу на языке Паскаль условие такое:
вводится 15 чисел определить каких чисел кратных трём больше положительных или отрицательных

Var a,p,n,i:integer;
begin
 p := 0;
 n := 0;
 for i := 1 to 15 do
  begin
  read(a);
  if a mod 3 = 0 then
    if a gt; 0 then p := p + 1
    else
    if a lt; 0 then n := n + 1
  end;
  if p gt; n then writeln(Положительных) else
  if p lt; n then writeln(Отрицательных) else
    writeln(Одинаково)
end.



{вариант "как-то посложнее"}

var a,i,s:integer;
begin
 s := 0;
 for i := 1 to 15 do
  begin
  read(a);
  s := s + ord(a mod 3 = 0) * (ord(a gt; 0) - ord(a lt; 0))
  end;
 if s gt; 0 then writeln(Положительных) else
 if s lt; 0 then writeln(Отрицательных) else
 writeln(Одинаково)
end.