Question

Вычислить значение логического выражения x2+y2<=4 при x=1 y=-1 паскаль(нужна программа)

Answer 1

Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4
then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end.