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