Даны два числа С, D. Если сумма кубов Этих чисел двухзначное

var c,d:real;

BEGIN

readln(c,d);

if (abs(c*c*c+d*d*d)lt;100) and (abs(c*c*c+d*d*d)gt;9) then

writeln(c*d) else

writeln(абс(c-d));

end.

var c,d,n: real;  

begin  

readln(c,d);

n := (c*c*c)+(d*d*d);

if (nlt;100) and (ngt;9) then  

writeln('Творенье чисел:', c*d)

else

begin

if (cgt;d) then writeln('Разность чисел:', c-d);

if (clt;d) then writeln('Разность чисел:', d-c);

end;

end.