Составить план алгоритма (блок схема) 1 . вычислить длину окружности 2 . вычисление корней квадратного уравнения через дискриминант

Var b,c: real;const pi=3.14;beginwriteln ('Введите b= радиус');read (b);c:=2*pi*b;writeln (c)end.

Вот, это для первого и второго соответственно =)