Прошу очень нужно срочно как записать на языке паскаль Найдите значение функции y=2a+x2 где x принимает значения 12345

function ResultFunction(a:integer):integer;begin var x: integer; x := 12345; ResultFunction:= 2*a + x * xend;var A, Res: integer;begin Write(\'Введите неизвестное A\'); Readln(A); Res := ResultFunction(A); Writeln(\'Результат работы функции: \',Res)end.