Программа паскаль y=x2-4x+1

Question

Программа паскаль y=x2-4x+1

Answer 1

Var
x,y:integer
begin
write('введите x');
readln(x);
y=:(формула) ;
write(Y);
readln;
end.

Answer 2

Var y,x:integer;
begin
readln(x);
y:=x*x-4x+1;
writeln(y);
end.