Untitled

program Perkalian;

function function_kali(angka1, angka2: Integer): Integer;
begin
  function_kali := angka1 * angka2;
end;

var
  nilai: Integer;

begin
  nilai := function_kali(10, 50);
  Writeln(nilai);
end.