W Pascalu popraw ten program

program funkcja1;
var
x, wynik :integer;
begin
writeln(‘ Ten program obliczy Ci wartość
funkcji f(x) = x*x + 3x – 6 dla dowolnej liczby całkowitej’);
writeln(‘Podaj dowolną liczbę całkowitą.’);
readln(x);
wynik:=x*x+3*x-6;
write(‘Wynik funkcji dla x=’);
write(x);
write(‘ wynosi ‘);
writeln(wynik);
readln;
end.