нет перегруженной подпрограммы с таким количеством параметров sqrt
Вот алгоритм
program l;
var a,b,c,p:real;
begin
writeln('Введите значение a,b');
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
writeln(sqrt(sqr(a),'+',sqr(b)),'=',c);
writeln(a,'+',b,'+',c,'=',c);
end.
Ошибка в writeln(sqrt(sqr(a),'+',sqr(b)),'=',c);

Объяснение:

В функцию sqrt Вы передаете квадрат a, затем строку '+', затем квадрат b, хотя функция sqrt принимает всего одно число.

Возможно, вы хотели вывести что-то типа этого:

writeln('sqrt(',sqr(a),'+',sqr(b),')=',c); // Выведет 'sqrt(144+25)=13', если a=12, b=5.