Составить программу, которая вводит с клавиатуры три различных целых…

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.