funkcja kwadratowa pomocy

miałem zrobić program obliczający funkcje kwadratową ale coś mi nie wychodzi ma ktoś pomysł jak to poprawić plik wygląda tak: program fuck; uses crt; var a,b,c:real; function f_y(x:integer):integer begin writeln('podaj a'); readln(a); writeln('podaj b'); readln(b); writeln('podaj c'); readln(c); f_y=axx+b*x+c; writeln('Funkcja dla argumentu x=',z,',rowna jest ',f_y(z)); for z:=-10 to 10 do wypisz_funkcje;
writeln('Koniec'); end.

Problem polega na tym że przy każdym nowym "z" pyta na nowo o zmienne a,b,c z góry thx

Wpierw zastanów się gdzie integer a gdzie real. Twoja konstrukcja jest trochę dziwaczna. Zobacz poniższy kod.

program Funkcja_Demo;
 
var a, b, c : real; 
     
function foo(x:real):real; {jeden argument x }      
begin
   foo := sin(x);   { treść funkcji }
end;
     
begin
   write('Podaj wartosc a: ');  
   readln(a);
   write('Podaj wartosc b: ');
   readln(b);

   foo(a)*foo(b)) < 0 then   { tutaj uzycie funkcji dla argumentow}
   write('foo(a) i foo(b) sa przeciwnych znakow');

end.

Pozdrawiam