Напишите программу в паскалях найти сумму и количество отрицательных элементов трехзначных и нечетных чисел

Предыдущий
вопрос Следующий
вопрос

program sum_and_count;
var
num, sum, count, digit1, digit2, digit3: integer;
begin
sum := 0;
count := 0;

writeln('Введите целое трехзначное число: ');
readln(num);

while (num < 100) or (num > 999) do
begin
writeln('Неверный ввод, пожалуйста введите трехзначное число: ');
readln(num);
end;

digit1 := num div 100;
digit2 := (num mod 100) div 10;
digit3 := num mod 10;

if (num < 0) and (num mod 2 <> 0) then
begin
sum := sum + num;
count := count + 1;
end;

writeln('Сумма отрицательных и нечетных трехзначных чисел: ', sum);
writeln('Количество отрицательных и нечетных трехзначных чисел: ', count);
end.