Д/З

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

Д|З

№2

Program Hello:
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=','z=');
readln;
end.