Программа для нахождения суммы квадратов двух чисел n1 и n2 на языке Pascal ABC:

program SumOfSquares;
var
n1, n2, sum: integer;
begin
writeln('Введите первое число:');
readln(n1);
writeln('Введите второе число:');
readln(n2);
sum := n1*n1 + n2*n2;
writeln('Сумма квадратов чисел ', n1, ' и ', n2, ' равна ', sum);
end.

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