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

1) Программка будет запрашивать ввод новых чисел, пока он не введёт число 3:

var i,count,n: Integer;
begin
while ilt;gt;3 do
begin
writeln('Введите число');
readln(n);
if nlt;0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.

2) Программка будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут одинаковы числу 3:

var count,n: Integer;
begin
while countlt;gt;3 do
begin
writeln('Введите число');
readln(n);
if nlt;0 then inc(count);
end;
writeln('Кол-во: ',count);
end.