Составить программу,которая запрашивает у пользователя два целых числа и выводит квадрат суммы (a+b)2 и суммы квадратов a2+b2 этих чисел

Var a,b,x,y:integer;
begin
writeln('Введите числа :');
readln(a,b);
x:=sqr(a+b);
y:=sqr(a)+sqr(b);
writeln('Квадрат суммы = ',x);
writeln('Cуммы квадратов = ',y);
end.