Даны четыре вещественных числа. Определить ,сколько из них отрицательных.

Var   a,b,c,d:real;   k:byte;Begink:=0;Write('Введите четыре вещественных числа: ');ReadLn(a,b,c,d);if a<0 then k:=k+1;if b<0 then k:=k+1;if c<0 then k:=k+1;if d<0 then k:=k+1;WriteLn('Количество отрицательных: ',k);End.