)) программа запрашивает 2 целых числа после чего выводит на экран их сумму, произведение и разность квадратов

Var
  a, b: integer;

begin
  write('Первое число: ');
  readln(a);
  write('Второе число: ');
  readln(b);
  writeln('Сумма квадратов A и B: ', sqr(a) + sqr(b));
  writeln('Произведение квадратов A и B: ', sqr(a) * sqr(b));
  writeln('Разность квадратов A и B: ', sqr(a) - sqr(b));
end.