составить программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превышает 100 (каждое число с новой строки), и если среди них есть неотрицательное число, то выводит это число или выводит сумму всех отрицательных введенных чисел в остальных случаях.

Program n1;Uses CRT;Var a,b,c: integer;beginClrScr;Writeln('Vvedite chisla');Readln(a,b,c);If(a<0)and(b<0)and(c<0) then writeln('Summa = ',a+b+c) else if (a>0) then writeln('polozhitelnoe chislo ',a) else if (b>0) then writeln('polozhitelnoe chislo ',b) else if (c>0) then writeln('polozhitelnoe chislo ',c);readlnend.