В результате работы программы z будет равно:

program delenie;
uses
Crt;
var
x,y,z :integer;
begin
x:=5;
y:=2;
z:=x div y;
Writeln\(z\);
end.