Впаскале составить блок-схему и программу для вычисления значения функции y при заданном значении аргумента x. y=4x^2+2(x^2+1) ; x=3

Program z;
var y,x:integer;
begin
write('введите число x');
readln(x);
y:=4*sqr(x)+2*(sqr(x)+1)
write('число y='):
writeln(y);
end.
вроде бы так

Если x вводится с клавы:

var x:integer; 
begin
readln(x);
writeln( 4*sqr(x)+2*(sqr(x)+1));
End.

Если нет, то

begin
writeln( 4*sqr(3)+2*(sqr(3)+1));
End.