внесу маленькие изменения в код bayarookie последнюю строку следует изменить на writeln(A,'; ', B,'; ', C,'; ', D); иначе подряд все числа напечатает без пробелов. получится белиберда =) и еще первые 4 оператора можно превратить в один readln(A,B,C,D); но на будущее хочу сказать, что если считываете строку (Tstring), то придется писать все операторы считывания по отдельности. ну и для красоты можно форматный вывод корня сделать writeln(SQR(A - C):5:3 ) означает что будет показано только 3 знака после запятой (XXXX.XXX), в ином случае выведется что нить примерно так 0.12 E01 =) Добавлено спустя 2 минуты 16 секунд: Evgen231 условия не понятны. прыгать на падающий ящик? )))