Найти квадрат суммы и сумму квадратов 2-х целых чисел,вводимых с клавиатуры.черезе паскаль

Program summa;
var a, b ,SS,S: integer;
begin 
WRITELN ( ' Введите два целых числа' );
READLN(a, b);
S:= sqr (a+b);
SS := a*a + b*b;
WRITELN ('сумма квадратов чисел равна  ', SS);
WRITELN ('Квадрат суммы чисел равен  ', S);
END.