Как делать? ввести два целых числа 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.