Программа в Паскале

[guroDragon]

Всем привет, я первокурсник Киевского Политеха, учусь на Прикладной математики. Раньше учил и Паскаль и С++, но уже все забыл)
Задали задание, лёгкое, найти значение выражение. Все сделал, даже чуть своего добавил) Хотел узнать ваше мнение, есть ли что-то лишнее? Или можно что-то еще добавить?
Спасибо.
ЗЫ. сорри, не вставляется файла pas.

[Вадим Мошев]

Или можно что-то еще добавить?

Добавьте сюда код программы... или что вы хотите?

[guroDragon]

Сообщение от Вадим Мошев

Добавьте сюда код программы... или что вы хотите?

Закинул уже)

[Poma][a]

А не могли бы Вы предоставить код не в картинках, а в текстовом виде?

[Stilet]

есть ли что-то лишнее? Или можно что-то еще добавить?

Запусти прогу - она работает? Работает правильно? - значит ничего лишнего не надо.

[guroDragon]

Сообщение от Stilet

Запусти прогу - она работает? Работает правильно? - значит ничего лишнего не надо.

Хотелось бы узнать мнение программистов)

[Poma][a]

answer:=((b+sqrt(b*b+4*a*c))/2*a)-a*a*a*c+(1/(b*b));
                 writeln('Ответ = ', answer:8:2);

Есть в каждой ветве развилки, так почему же не вынести это из развилки?

[guroDragon]

Сообщение от Poma][a

Есть в каждой ветве развилки, так почему же не вынести это из развилки?

Окей, спасибо.

[guroDragon]

Сообщение от Poma][a

Есть в каждой ветве развилки, так почему же не вынести это из развилки?

Так? Вроде верно.