Вычислить значение логического выражения 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.
Писал с планшета так что если найдешь ошибки извиняй)