Как делать? ввести два целых числа x y определить что больше квадрат суммы или сумма квадратов, вывести ответы "квадрат суммы" или "сумма квадратов" или "значения равны". в паскале подробно.

Program kek;
var z.q.x,y:integer;
Begin
readln (x);
readln (y);
z:= sqr(x)+2*x*y+sqr(b);
q:=sqr(x)+sqr(y);
If z>y then write ('квадрат суммы') 
          else write ('квадрат разности');
End.