deklarasi fungsi

uses wincrt;
Function Hasil(A,B,C : longint) : longint;
  Begin
    Hasil  :=  A*A+B*B+C;
  end;
 
   Var X,Y,Z : longint;
    Begin
      WriteLn('Hasil dari X^2 + Y^2 + Z adalah..?');
      Write('Jika Nilai  X = ');ReadLn(X);
      Write('Dan Nilai   Y = ');ReadLn(Y);
      Write('Serta Nilai Z = ');ReadLn(Z);
      Write('Maka Hasil dari X^2 + Y^2 + Z');
      WriteLn(' adalah : ',Hasil(X,Y,Z));
          WriteLn;
      WriteLn('Tekan Enter untuk Keluar..');
      ReadLn;
    end.