Напишите в 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.
  • 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.
Внимание, только СЕГОДНЯ!