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

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

Var a, b, c, d, e:integer;

begin

readln (a, b, c, d, e) ;

if (a mod 20) and (a<0) then write (a) ;

if (b mod 20) and (b<0) then write (' ', b) ;

if (c mod 20) and (c<0) then write (' ', c) ;

if (d mod 20) and (d<0) then write (' ', d) ;

if (e mod 20) and (e<0) then write (' ', e) ;

end.

Пример:

-15 42 - 10 27 - 79

-15 - 79