Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

program zz1;

var a, b, d:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if (a < 0) then d:=d + 1; / / проверяем на отрицательное первое число

if (b < 0) then d:=d + 1; / / проверяем на отрицательное второе число

write (' количество отрицательных среди заданных чисел = ', d);

end.