Даны 5 чисел (могут быть и отрицательные и положительные), вывести нечетные числа, которые меньше нуля.

Написать программу Pascal ABC

После then write(' ',b);

' ' - пробел

var a,b,c,d,e:integer;beginreadln(a,b,c,d,e);if (a mod 2<>0)and(a<0) then write(a);if (b mod 2<>0)and(b<0) then write(' ',b);if (c mod 2<>0)and(c<0) then write(' ',c);if (d mod 2<>0)and(d<0) then write(' ',d);if (e mod 2<>0)and(e<0) then write(' ',e);end.Пример:-15 42 -10 27 -79-15 -79