Ответ:

Вот код, алгоритм и блоксхему возможно потом добавлю

Объяснение:

program qqq;

var  p, a, b, c: integer;

otv: real;

begin

 write ('Введите значение a: ');

 readln (a);

 write ('Введение значение b: ');

 readln(b);

 write ('Введите значение c: ');

 readln(c);

   otv:=  a+sqrt(b*b - 4 * a * c)/2*b+3*a;

 writeln (otv);

end.