program tt;
uses crt;
var
a,b,c,d:real;
j:integer;
begin
ClrScr;
writeln('Первое число:');
readln(a);
writeln('Второе число:');
readln(b);
writeln('Третье число:');
readln(c);
writeln('Четвертое число');
readln(d);
j:=0;
if a<0 then
j:=j+1;
if b<0 then
j:=j+1;
if c<0 then
j:=j+1;
if d<0 then
j:=j+1;
writeln('Отрицательных чисел ',j);
readln;
end.