Question

giúp em với mn

Answer 1

uses crt;
var x,y,t: real;
begin
clrscr;
readln(x,y);
t:=x*x+y*y;
if t<=0 then writeln('Z=',t:4:1);
if t>0 then writeln('Z=',sqr(x+y):4:1);
readln
end.