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

Язык?

Var
  a, b: integer;

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