PROGRAM FUNGSI KUADRAT

uses wincrt;
var x,y,z,s:integer;
function fungsi(a,b,c,x:integer):integer;
        begin
        fungsi:=a*(x*x)-b*x+c;
        end;
begin
     write('masukan a:');readln(x);
     write('masukan b:');readln(y);
     write('masukan c:');readln(z);
     write('masukan x:');readln(s);
     writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);
     writeln('f(',s,')=',fungsi(x,y,z,s));
     readln;
end.