Var a: real; begin Write('Здраствуйте я умею считать объем кубика! Введите длину ребра: '); while true do begin Read(a); if a < 0 then Writeln('Меньше нуля, серьезно? Попробуй еще раз: '); if a = 0 then Writeln('Ноль, серьезно? Попробуй еще раз: '); if a > 0 then break; end; Writeln('Объем кубика равен ' + a*a*a); Writeln('Пока! :)'); end.