Пример программы для подсчета количества неотрицательных чисел среди 10 вводимых с клавиатуры

uses
  WinCrt;
var
  a: real;
  i, count: integer;
begin
  count:=0;
  for i:=1 to 10 do
  begin     write (' число ', I:2,'?');
    read (a);
    if a>=0 then count:=count+1;
  end;
  writeln;
  writeln(' Неотрицательных чисел:', count:3);
end.

Пояснения

Структура программы
Uses
var
Правила записи имен
real, Integer
begin
Присвоение (:=)
for...do...
Составной оператор
write, writeln
read
if...then...
Логические величины
end