ввести ри числа a,b,c. напечатать все отрицательные числа
в программе Паскаль

спасибо :з

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