Question

Напишите программу,которая определяет количество отрицательных чисел среди трех введенных. пожалуйста помогите

Answer 1

var
  i, k, n: integer;

begin
  for i := 1 to 3 do
  begin
    readln(n);
    if n < 0 then k := k + 1;
  end;
 
  writeln(k);
end.