В паскале Составить блок-схему и программу для вычисления значения функции Y

Программка обязана быть универсальной для любого входящего параметра. В нашем случае этим параметром будет переменная х.
Конкретно ее будет задавать не создатель программы, а пользователь, который с этой программкой работает.
Для этого необходимо прописать одну строчку:
readln(x);
Сейчас после ввода некого числа программка будет знать, какое значение присвоить переменной х.
После этого нужно добавить строчку вычисления значения функции, которая зависит от введенного числа:
у := 4 * sqr(x) + 2 * (sqr(x) + 1);