Відповідь:
Добавь этот код в главную часть после того как ты считал переменные а и с
var
tempA, tempC : integer;
tempA := round(a);
tempC := round(c);
if tempA < 0 or tempC < 0 then
(дальше уже свой код ставь)
Пояснення:
В чём собственно проблема, как я думаю: паскаль не умеет динамически приводить тип данных переменных, так как не могу проверить такой как я привёл выше думаю должен сработать (хотя он и не очнень красивый)
