Программа на Pascal с использованием цикла while:

program CountNegativesWhile;
var
i, num, countNegatives: integer;
begin
countNegatives := 0;
writeln('Введите 10 чисел:');
i := 1;
while i <= 10 do
begin
write('Число ', i, ': ');
readln(num);
if num < 0 then
countNegatives := countNegatives + 1;
i := i + 1;
end;
writeln('Количество отрицательных чисел: ', countNegatives);
end.

Программа на Pascal с использованием цикла repeat:

program CountNegativesRepeat;
var
i, num, countNegatives: integer;
begin
countNegatives := 0;
writeln('Введите 10 чисел:');
i := 1;
repeat
write('Число ', i, ': ');
readln(num);
if num < 0 then
countNegatives := countNegatives + 1;
i := i + 1;
until i > 10;
writeln('Количество отрицательных чисел: ', countNegatives);
end.

Обе программы сначала запрашивают ввод 10 чисел от пользователя, затем подсчитывают количество отрицательных чисел среди них и выводят результат на экран.