Ответ:

Нет ";" после вывода "(Введите... а и с)"

b и с не инициализированны в самом начале + там какая-то лишняя s  (нужно Var a, b, c: real)