нет перегруженной подпрограммы с таким количеством параметров 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);