Думаю тебе алгаритм ветвения,он состаит из вывода,условия,и начала,конца.
Если ошибся,поправьте.
Начало
Вывод(указываем переменные,A,B.ну и т.д.)
Да Условие(к примеру:A>=B) Нет
Если х=A+B Иначе х=A/B
Ну и дальше вывод,и конец.
Вывод
Конец.
Простите,что данный алгаритм написан не достаточно хорошо,ну думаю вам
var x1,x2,x3,y:real;
begin
readln(x1,x2,x3);
x1:=x1-x3;
while x1<x2 do
begin
x1:=x1+x3;
if(x1<=x2)then begin
y:=x1*x1*x1+3;
writeln(y);
end;
end;
end.