Вычислить значение логического выражения x2+y2<=4 при X=1, Y=1. программу выполнить в паскаль абц

Program log;

Var x, y, s:integer;

Begin

x:=1;

y:=1;

s:=sqr (x) + sqr (y) ;

if s<=4

than writeln ("4 равен или больше чем сумма квадратов x и y")

else writeln ("4 меньше суммы квадратов x и y)

end;

end.

Писал с планшета так что если найдешь ошибки извиняй)