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

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

end.