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

Var a,b,c:integer;
begin
  writeln('Введите a,b,c'); readln(a,b,c);
  if a<0 then writeln(a);
  if b<0 then writeln(b);
  if c<0 then writeln(c);
  if (a>=0) and (b>=0) and (c>=0) then writeln('Отрицательных нет');
end.
 

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.