Разработайте алгоритм вычисления функции z

Program q1; var x,y,z,q: real; begin readln(x); readln(y); q:=y*y+x*x; if(qlt;1) then do z:=q; if(qgt;1) then do z:=0.5; if(q=1) then do z:=x+y; writeln(z); end.