Напишите программу к задаче.

Найти количество отрицательных чисел, вводить пока не будет 3.

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

var i, count, n: Integer;

begin

while i3 do

begin

writeln ('Введите число') ;

readln (n) ;

if n<0 then inc (count) ;

i:=n;

end;

writeln ('Кол-во: ', count) ;

end.

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

var count, n: Integer;

begin

while count3 do

begin

writeln ('Введите число') ;

readln (n) ;

if n<0 then inc (count) ;

end;

writeln ('Кол-во: ', count) ;

end.