Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (а+b)2 и сумму квадратов а2+b2 этих чисел. пример работы программы: введите два числа а=5 b=2 квадрат суммы 3 и 2 равен 25 сумма квадратов 3 и 2 равна 13

Program chisla;
var
a, b, c, d: integer;
begin
  writeln ('Введите a: ');
    readln (a);
  writeln ('Введите b: ');
    readln (b);
  c:=sqr(a+b);
  d:=sqr(a)+sqr(b);
  writeln ('Квадрат суммы: ', c);
  writeln ('Сумма квадратов: ', d);
End.