!!!Напишите в PASCAL программу: Даны три числа. Вывести на экран только отрицательные

Var a,b,c:integer; begin writeln('Введите три числа'); readln(a,b,c); if a<0 then write(a , ' '); if b<0 then write(b, ' '); if c<0 then write (c); end.