Program three;
var A,B,C,F:real;
begin
writeln('vvedite 3 chisla')
readln(A,B,C);
if A+B<C then F:=1;
else
F:=0;
writeln ('A=','B=','C=');
readln;
end.

№2

Program one:

var x,y,F:real;

begin

writeln('vvedite x,y');

readln (x); readln(y);

If x>0,y>0 then 

begin 

F:=1;

end;

else

begin

F:=0

end;

writeln ('x=','y=','F=');

readln;

end.