Умовний Оператор

program kilkist;

uses crt;
var a,b,c,s:integer;
BEGIN
read(a,b,c);s:=0;
if a mod 2=0 then s:=s+a;
if b mod 2=0 then s:=s+b;
if c mod 2=0 then s:=s+c;
writeln(s);





END.

program p10000;

uses crt;
var a,b,c,p:real;
BEGIN
read(a,b,c);p:=1;
if(a>=-10)and(a<=10) then p:=p*a;
if(b>=-10)and(b<=10) then p:=p*b;
if(c>=-10)and(c<=10) then p:=p*c;
writeln(p:1:1);



END.

program p789;

uses crt;
var a,b,c:real; k:integer;
BEGIN
read(a,b,c); k:=0;
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
writeln(k);

END.