Составить по алгоритму программу на языке программирования Pascal.

Program n6; var x,y,v: real; begin readln(x); readln(y); if(x>1) and(y>1) then do v:=x+y; if(x>1) and(y<=1) then do v:=x-y; if(x<=1) and(y>0) then do v:=y-x; if(x<=1) and(y<=0) then do v:=-x-y; writeln(v); end.