Процедура целочисленного дробленья 2-ух целых чисел (входные характеристики: a,b- числа; выходной

Процедура:
procedure dp(a,b: integer);
begin
writeln(a div b);
end;

функция:
function df(a,b: integer): integer;
begin
df:=a div b;
end;

программа с процедурой:
Program n1;
var x,y: integer;
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
begin
readln(x,y);
dp(x,y);
end.

программка с функцией:
Program n1;
var x,y: integer;
function df(a,b: integer): integer;
begin
df:=a div b;
end;
begin
readln(x,y);
writeln(df(x,y));
end.