Составить графическую схему алгоритма и написать программу для вычисления значений функции - Pascal ABC

Формулировка задачи:

Добрый день.Нужна помощь,может кто нибудь подробно и понятно написать программу? Нужно Составить графическую схему алгоритма и написать программу для вычисления значений функции w = z³ – 2,15z² + 1,8z, где

Решение задачи: «Составить графическую схему алгоритма и написать программу для вычисления значений функции»

Листинг программы

var x,y,z,w:real;
begin
writeln('Введите значения x,y');
readln(x,y);
if x<0 then z:=x+y
else z:=-x*x+cos(y);
w:=z*z*z-2.15*z*z+1.8*z;
write('W=',w:0:3)
end.

Объяснение кода листинга программы

Создается переменная x типа real, и ей присваивается значение readln(x,y) (читаем значения x и y с консоли).
Создается переменная y типа real, и ей присваивается значение readln(x,y) (читаем значения x и y с консоли).
Создается переменная z типа real, и ей присваивается значение (x+y) (сложение x и y).
Создается переменная w типа real, и ей присваивается значение (z*z*z-2.15*z*z+1.8*z) (вычисляем w).
Значение переменной w записывается в консоль с помощью write('W=',w:0:3).
Программа завершается.