помогите составить программу вычисления (программа паскаль)»

Система: y(в кубе)+2,5-0,28 еслиyбольше или равно 3; y(в квадрате)-1,17/3 если y меньше 3. 1) y=-5,41; 2) y=5,17.

И чего тут писать то ??? Поле для ввода одной переменной и формулу....

begin
{Вводим значение Y}
clrscr;
write('Wwedite Y: ');
readln(Y);
{Вычисление}

{Если У больше 3 выводим на экран}
if Y > 3 then
begin
X=exp (3*ln(Y))+2.5-0.28
writeln('x = ',x);
End;
Как то так....

Маргарита, почему оказываете "медвежью" услугу?