Для вычисления суммы квадратов a и b в Pascal можно воспользоваться следующим кодом:

program SumOfSquares;
var
a, b, sum: integer;
begin
write('Введите значение a: ');
readln(a);
write('Введите значение b: ');
readln(b);
sum := a * a + b * b;
writeln('Сумма квадратов a и b равна ', sum);
end.

При вводе значений a=2 и b=3, программа выведет: "Сумма квадратов a и b равна 13".