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

Если это 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.