Процедура целочисленного деления двух целых чисел (входные параметры: a,b- числа; выходной параметр- целое частное a/b). функция целочисленного деления двух целых чисел (выходные параметры: a,b- числа; возвращаемое значение - целое частное a/b). написать программу в pascalabc.net.

Процедура:
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.