Нет перегруженной подпрограммы с таким количеством параметров 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('=',c); writeln(a,'+',b,'+',c,'=',c); end. ошибка в writeln(sqrt(sqr(a),'+',sqr('=',c);