var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
1 женский род
2 женский род 3 скл
3 числительное
4 время
5 месяц
6 однозначные числа
7 двузначные числа
8 не знаю
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>
<span>аппаратными средствами информатизации</span>