Что будет напечатано в результате выполнения процедуры?

procedure proc;
var
x, y, z:integer;
begin
x:=17;
y:=x div 5;
z:=y mod 2;
write(z);
end;
begin
proc;
end.

katekurmakaeva    1   01.04.2020 20:20    12