Составить алгоритм, который считывает числа А и В и находит сумму квадратов этих чисел

Если это Pascal то код будет выглядеть так

program test;

uses crt;

var

A, B, Q:integer;

begin

//textcolor (12) ; - По желанию

writeln ('Введите число A:') ;

readln (A) ;

writeln ('Введите число B:') ;

readln (B) ;

Q:=A*A+B*B;

writeln (Q, ' Ответ') ;

end.