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

Question

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

Answer 1

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