Program Fungsi Pertambahan

uses wincrt;
var
a,b:integer;
function tambah(x,y:real):real;
var
hasil:real;
begin
clrscr;
hasil:=a+b;
tambah:=hasil;
end;
begin
clrscr;
write('masukkan bil1: ');read(a);
write('masukkan bil2: ');read(b);
writeln('jadi hasilnya: ',tambah(a,b):4:2);
end.