С: по заданным значениям переменных вычислить значение выражения (x+1)^2+3(x+1) при х=1,3 в заранее

Var x,c: real;
begin
readln (x);
c:=(x+1)*(x+1)+3*(x+1);
writeln (c);
end.
 по запросу просто введешь 1,3