cube

//Название программы, впринципе можно не писать
program cube;
//Подключаем библиотеку sysutils, из неё окна функция FloatToStr()
uses sysutils;
//Создаём переменные типа extended
var
    a:extended;
    b:extended;
    c:extended;
    d:extended;
    ranks:integer;
//Сама программа
begin
    //Задаём значение переменным
    a := -5;
    b := 89.007;
    c := -400.682;
    d := 0.05;
    //Сделаю просто задротским способом, по условию на каждую переменную
    //Мой возможно немного костыльный способ проверки на четность действительного числа
    //Записываем в переменную количество знаков после запятой и там ещё получается плюс 1 => "0" или плюс 2 => "0,", но это важно
    ranks := length(FloatToStr(frac(a)));
    //Если количество знаков после запятой увеличилось, значит число нечётное
    if length(FloatToStr(frac(a/2))) > ranks then begin
        //Куб
        a := a * a * a;
        //Вывод
        writeln('a^3 = ', a:0:5);
    end;
    //И теперь ещё три таких же куска с другими переменными
    //b
    ranks := length(FloatToStr(frac(b))) ;
    if length(FloatToStr(frac(b/2))) > ranks then begin
        b := b * b * b;
        writeln('b^3 = ', b:0:5);
    end;
    //c
    ranks := length(FloatToStr(frac(c))) ;
    if length(FloatToStr(frac(c/2))) > ranks then begin
        c := c * c * c;
        writeln('c^3 = ', c:0:5);
    end;
    //d
    ranks := length(FloatToStr(frac(d))) ;
    if length(FloatToStr(frac(d/2))) > ranks then begin
        d := d * d * d;
        writeln('d^3 = ', d:0:5);
    end;
//Конец программы
end.