Д|З

№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.